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ABSTRACT 

(Distribution  Limitation  Statement  A) 

A  supplement  to  the  BLIMP  computer  program  report  is  presented.  Major  new  additions  in  the 
input  section  describe  the  data  start  procedure  and  the  entropy  layer  option.  For  convenience, 
however,  an  entire  new  input  section  is  included  in  this  supplement.  Also  a  new  Fortran 
Variables  List,  a  complete  listing  of  the  code,  and  two  new  check  cases  are  included. 
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SECTION  I 
INPUT 

The  revised  input  instruction*  are  contained  in  this  section. 
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GROUP  l  fUMTWOI  CAPO.  TIT|_K«  ANU  IDENTIFICATION  (CALLED  FROM  RECASE) 


CARD  )«  FORMAT  (?r»Jl  •  1  SAA)  «  HR 

Ff  F|.0  1  (COLUMN!-  ,-2ft)  THIS  IS  THE  VARIABLE  KR  (DIMENSIONED  20)  WHICH  IS 

USED  TO  CONTROL  THE  VARIOUS  PROGRAM  OPTIONS 

COLUMN  1  DETERMINES  WHETHER  A  NEW  SET  OF  ETA  VALUES  IS  TO  BE  INPUT  FOR 
PRf  SF  WT  TASK  (SEE  GROUP  4) 

n  USF t"  RESIDENT  VAI.UFS  FROM  PRFVIOUS  CASE 

|  VAliifS  ( r.;PI i'f  HY  USFK  (MANDATORY  FOR  FTRST  CASE) 

COLUMN  ?  DESIGNATES  TYPE  OF  FIRST  guesses  TO  «e  uiiltzed  FOR  primary 
VARIAMiF.S  <SF£  GROUP  R) 

ft  j ISP s  MUfl  l-TN  RELATIONS  TO  CALCULATE  FIRST  GUESSES  (REQUIRES 
READING  DM|  Y  tiUFSS  FOR  ENTHALPY  OF  THE  GAS  AT  THE  WALL). 
ivFr.)MMf.-Miifr)  FOR  MOST  SITUATIONS. 

I  MUST  GUFSSFN  rwH».'T  HY  I'SER 

?  i isP S  RESTOEmT  Val-'FS  FROM  PREVIOUS  CASE  (CANNOT  BE  USEO  FOR  FIRST 
CASF  OR  *HFf  COMPOSITION  OF  EDGE  GAS  IS  DIFFERENT  FROM  PREVIOUS 
CASE) 

\  riPST  DUPSSES  INPUT  BY  USER  ARE  ACCEPTED  AS  SOLUTION  AT  FIRST  TIME 
ANO  FTPS T  op  s< IhSFOIIE NT  (FOR  RESTART)  STATION.  USF  THIS  OPTION  FOR 

data  start  and  restart  <see  group  s»>* 

/•OIUMN  i  DF.TF^-fNF^  TpfaTmFnT  OF  STREAMWISE  DERIVATIVES, 

SRF  wpFFRFNCF  1.  SECTION  HI  FOR  EXPLANATION  UF 
dtffurf.hck  °FLAlTONS. 

ft  pj-pfopms  S I  TLaf  SOLUTION  AT  EACH  STREAMWISE  STATION 
1  CONSIDERS  T  10-PuINT  DIFFERENCE  RELATIONS  AT  ALL  STATIONS  WITH  THE 

foilu-'inu  exceptions  (a  similar  solution  is  performed  at  the  first 
STATION  for  NOn-HLHNT  bodies  AND  AT  THE  FIRST  TWO  STATIONS  FOR 

BLUNT  HOOFFS) 

COMSfOFRS  TWREF  point  difference  relations  at  all  stations  with  the 

FOU  OWING  EXCEPTIONS  (A  SIMILAR  SOLUTION  IS  PERFORMED  AT  THE  FIRST 
STATION  AND  A  Tv-O-OOTNI  SOLUTION  IS  PERFORMED  AT  THE  SECOND  STATION 
POP  NOn-RLUmT  mDUIFS,  SIMII  AR  SOLUTIONS  ARE  PERFORMED  AT  THE  FIRST 
and  SFCu'-o  BTAlfONS  ANu  A  TWO-POINT  SOLUTION  IS  PERFORMED  AT  THE 
TH I  Pi*  ST  6 1  TOM  FOR  BLUNT  BODIES.  AND  A  TWO-POINT  SOLUTION  IS 
PFPFnRMF> i  Flip  I hF  FTRSl  STATION  AFTER  A  DISCONTINUITY  -  SEE  CARD 
SFT  4  OF  noo'.iP  **>. 
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column  4.  -oft  primes  whfn  output  block  is  ro  hf  printed 

0  OIJIk«:T  H|  OCk  PH  \i4  I KO  FUR  CONVERGED  SOLUTION  OH  FOR  NONCONVERGED 
SOI.*:  ir>N4MF-  Kil  ITERATIONS  (WITH  APPROPRIATE  COMMENT) 

l  nin-:.r  HI  0C-  PHtwTFO  AKTEP  EACH  I TERAT ION 

COUIMN  S  ijUFMMfMfS  fPrATMFNf  OF  ENTROPY  I.AYEP  (SEE  CAHD  SET  J  AND 
CAW«>  9  OF  GROUP  J5)  •  KR<7>  *0  OH  2  ONLY. 

«  A)  I  SEN  TROPIC  , EXPANSION  AHOUNO  THE  BODY  IS  PERFORMED  (IN  THE  CASE 
OF  A  Hl  'fnT  t-'liY,  Thf  FNTHOPY  CORRESPONDS  TO  THAT  REHIND  A  NORMAL 
SHUCK) 

)  NOT  liSF 

?  A <)«ymmftwt**  SHOCK' LAYER 

T  ENTROPY U  AYFR  -  (•••VISCID  FLOW  F‘  JELD  ENTROPY  GRADIENTS  ARE 
COf'«r>F,wvFr>  (SEE  GROUP  IS) 

4  FNT^OtY  A NO  FNn>OY  LAYER ' -  MOTH  INVfSCfO  FLOW  FIEIO  ENTROPY  AND 
FNFHJ-r  URAUJTNIS  ap  j*  CONSIOEHED  (SEE  GROUP  15).  Nor  USED  IN  THIS 
VERSION 

s  A  NONTSFN’RfOK  EXPANSION  AROUND  THE  BODY  IS  PERFORMED;  THE  USER 
SUPPLY Tu<,  fMWiiPY  CHANGES  BETWEEN  STREAMWISE  STATIONS  (THIS  IS  A 
ZEROTu  aP» -m< JmaT i on  TO  AN  ENTROPY  LAYER.  THE  VELOCITY  GRAOIENT 
AT  THF  HlHiNiiAWY  I-4YFP  tOGE  BEING  NEGLECTED) 

COLUMN  G  OFSltiMAns  MOIIY  SHAPE  (IN  THE  CASE  OF  AXISYMMETRIC  SHARP 

rtOnTFs  A Nn  AXISYMMETRIC  AND  PLANAR  BLUNT  BODIES*  A  TRANSEOR- 
'  MATIGN  of  SJOEAMWISE  DISTANCE*  S*  TO  S*#3.  S**4*  AND  S**2* 

RESPECT IVFLY.  TS  UTILIZED  TO  PERFORM  STREAMWISE  INTEGRATIONS 
In  upokw;  fO  TAKE  ADVANTAGE  OF  THE  WAY  THAT  EDGE  VELOCITY  ANO 

'  i  ocAi  body  Radius  vary  with  s  in  the  vicinity  of  the  tip  or 
STAGNATION  RFGIGN.  THEREFORE.  A  4  OP  9  IN  COL.  6  IS  REQUIRED 
IF  THE  solution  OOES  NOT  SlART  FROM  A  SHARP  TIP  OR  STAGNATION 
POINT.  FURTHERMORE.  IN  THE  CaSE  OF  SHARP  OR  BLUNT  BODIES.  A 
. Of SCON l INOI TY  INTRODUCER  4T  a  DOWNSTREAM  STATION  REVERTS  TO 
INTFGPaTJON  WITH  RESPECT  10  S  STARTING  AT  THAT  STATION.  IT  IS 
prc  )MMpN|irn  thaT  THIS  he  DONE  AFTER  AN  APPRECIABLE  CHANGE  OF 
SURFACE  INCLINATION  WITH  RESPECT  TO  THE  FREE- STREAM  VELOCITY 

'from  tha?  a r  the  tip  or  stagnation  point,  the  opmov;  smjtch- 
OVeR  -POInT  IIFPFNOS  ON  THE  SPECIFIC  BODY  SHAPE.  IT  IS  LEFT  TO  >• 
THF  USER  TO  ESTABLISH  THIS  FOR  THE  BOOY  SHAPE  OF  INTEREST. 

THF  METHOD  FOR  IMPLEMENTING  A  DISCONTINUITY  IS  DISCUSSEO 
UNDER  CARO  SFT  4  OF  GROUP  2). 
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n  AXTSIMMF  Twlr*  blunt  body 
1  «LANAP  R!  UNT  BOOY 
?  />XT«;YWMeTuTr  SMAHP  BODY 
T  PLANAR  SHARP  BODY 


4  AXfSYMMFIwTC  SHAPE  WHICH  has  wo  hlunt  stagnation  point* 

HOP  FX AMPLE*  A  M0/7LF 

5  AXISYMMF.TMTC  hi. i in t  hooy  with  transverse  curvature 

6  .  MOT  USFD 

7  AXfSYXMMHlr  SHARP  HOOY  WITH  TRANSVERSE  CURVATURE 

H  AX I  SYMMETRIC  ShaPE  WITH. INTERNAL  FLOW  AND  TRANSVERSE  CURVATURE 

m  HXTFHNAI  Flow  OVfR  AXISYMMETRIC  SHAPE  WHICH  HAS  NO  SHARP  TIP  OR 
HI.i'HT  STAGNATION  point  ANO  WITH  TRANSVERSE  CURVATURE 

COLUMN  7  DESIGNATES  WMFTHER  OR  NOT  TURBULENT  FLOW  WILL  BE  CONSIDERED, 

0  l  A*'|NAW  FLOW  ONLY 

1  »-  )T  USFO  Tm  PRESENT  VERSION  OF  PROGRAM 

.  .  :  ,  ,  i 

?  Tl'r>HULFNT  Flow  win  BE  COMPUTED  IF  TRANSITION  CRITERIA  IS  EXCEEOED 
(SFF  GROUP  M). 

COL'Mn  h  DESIGNATES  FORM  In  WHICH  WALL  MASS  FLUXES  ARE  INPUT.  (KR (8) 
IS  NOT  'UTILIZED  IF  WALL  FLUXES  ARE  NOT  INPUT.  THE,  FLUX 
NORMALIZING  PARAMETER  IS  NOT  GENERALLY  KNOWN  IN  ADVANCE  SO 
KP(B»«o  IS  NORMALLY  USED  WHEN  FLUXES  ARE  INPUT).  UTILIZEO  IN 
CARD  SETS  7  AND  11  IN  GROUPS  16*  )7*  1«.  ...  . 

0  WAI  •  FLUXES  INPUT  IN  LBS/SEC  FT**2 

1  WM.l  FLUXFS  INPUT  IN  NORMALIZED  FORM  U.E.*  DIVIDED  BY  -ALPHASTAR* 
SEF  EQUATION  44  OF  NASA  CR-106?) 

COtilMN  <i  TOGETHER  WIT*  COLUMN  ll»  THIS  SPECIFIES  THE  TYPE  OF  WALL 
ROUNOART  COMO IT IONS.  THF  USER  IS  URGED  TO  FAMILIARIZE 
hTMSFLF  WITH  THE  DISCUSSION  IN  APPENDIX  I  BEFORE  CHOOSING 
THFSF  OPTIONS. 
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n  N  / 1  bpW  WAN  Y  IKFO.  aSSTKMKD  f  LEMfcNTAL  MASS  FRACTIONS  AND 
SIWFa*  r'lNCTlON  A?  iHfc  w  ALl  (REQUIRES  K« ( 1 l >  »  0  OR  1). 

1  NUT  liF*»AI.I  Y  USCO,  ASSIGNED  ELEMENTAL  MASS  F  HACTIONS  AND  TOTAL 
MASS  FL1*  Ar  .TMp  WALL  (REQUIRES  KR (1 1)  *  0  OM  1) . 

?  ASSIGNED  ro-4Pi»NFNT  MASS  Fl.nXES  AT  THE  MALL  (MOOT  F06E  GAS.  MOOT 
piholvsts  gas*  moot  cham—  requires  kroi)  *  o.  1.  or  ^>. 

I  MO  i  IJSF‘0 

4  VAIX'STFAOV  Mat*  FNFRfir  HALANCF  WHILE  SATISFYING  WALL  MASS 
BALANCES  ANn  LIMITED  SURFACF  EQUILIBRIUM  (USE  KM  (1 1 )  *  0. 

KW(7)  a  i>  'iw  ?. 

•■■if  *.  ,V.,  '  :  .  •  ’  .  ‘  .  .*«•  .  • 

COLUMN  To  'DFTEPVTNES  Type  OF  CUP WE  FITS  EMPLOYED  ro  REPMESENT  THE 
PM I map  Y  VARIABLES  OF  VELOCITY  RATIO*  TO  I AL  ENTHALPY.  AND 
ELEMENTAL  MASS  FRACTIONS  (KR(10)«0  IS  RECOMMENDED  FOR  ACCU¬ 
RACY  FOR  MOST  PRORLFMS.  HOWEVER*  KPUO)«l  IS  BETTER  FOR 
SFVPRi  PROhLFmS  (F.G.«  NEARLY  BLOWN  OFF  BOUNDARY  LAYERS)  FOR 
WHIO  HJM res  CAN  HECOME  POORLY  BEHAVEO) 

n  'irii,]7ES  connected  cuhics 

i  iiin  mvco:.*F<  mi  iuaopaTics  except  for  outermost  segment  where 
CONNECTED  Comics  AWE  EMPLOYED 

>  IITTI  1 7ES  CO  iwn-rt.i;  QUADRATICS  EVERYWHERE. 

COLUMN  ,11  jr;  rnr.EiK.Pw  WITH  COLUMN  r.  this  designates  the  type  of  wall 
HOU"oaPY  CONDITION  (SEE  APPENDIX  II.  SEE  GROUPS  16.  17. 

I  ^  t  #  •  t  :• ;;  , 

O  AS^TGNFD  WAN  TFMRFRATURE.  ALSO  USED  WITH  KR (9) »4.  THIS  OPTION 
TOGFTHFw  with  KP(9)s?  WILL  YIELD  SURFACF  EQUILIBRIUM  OR  KINETIC 
SookaCF  SOLUTION  IF  THE  ASSIGNED  TEMPERATURE  IS  GREATER  THAN  THE 
ASSifiMPO  AM|  ATION  TFMPERATUPE  (SEE  GROUP  U.  CARO  l.  FIELD  7). 
iHf  KQO:.R/  J  Win.  CALCULATE  THE  APPROPRIATE  CHAR  FLUX.  ASSIGNED 
thaw  Flint  SmuUI.O  HP  ser  In  7FR<)  (SEE  GROUP  16.  CARD  SEI  11). 

1  ASSIGNED  Wai  I  ENIHALPY. 

?  SURFACF  U.v(|.  lwpfiiM  Wl  IH  ASSIGMEU  COMPONENT  MASS  FLUXES  (RE- 
(JIIIPFS  KWfW)  S  ?>.  THE  PROBLEM  IS  WELL-POSED  ANO  WILL  CONVERGE 

/•OUI.Y  IF  IHKKK  Misrs  A  TFMPEWATURE  ABOVE  250K  GIVING  SURFACE 
POUILlHWIfM  m)K  IHF  ASSIGNED  COMPONENT  MASS  FLUXES.  USF  WITH 
CAUTION  Fmw  ANAt.YSFS  OF  MATERIALS  WMH  PLATEAU-LIKE  BEHAVIOR. 

T  CAHI  £  SOI. UT TONS  ONLY.  ASSIGNED  WALL  TEMPERATURE. 

4  C.AHU*  SOlUTTONS  ONl.Y.  SURFACE  EQUILIBRIUM. 
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COI.'IMM  I?  uFTERmjnFS  MHFTHFP  op  not  new  data  fop  thepmodynamic  and 
TkAN^POWT  PPOPEKTIFS  ARE  10  HE  USED  AND  WHETHER  OR  NOT 
SUPKaCF  K|MET1C  DATA  APE  10  HE  CONSIDERED  (SEE  GROUPS  11* 
|?,n.  AND  14).  APPLIES  ONLY  FOP  KP(7)*0  OR  2.  <KR(12>  MUST 
ME  0,  2.  S*  OR  7  FOP  FIRS!  CASE).  IN  IHE  FOLLOWING*  X»5 
F0»  KfNFTIC  DATA  AND  X  =  0  FOR  NO  KINETIC  DATA. 

X  USER  INPUTS  NFW  DATA  FOP  ELEMENTS  AND  MOLECULAR*  ATOMIC*  AND 
TONIC  FPECTEP.  THERMOCHFMICAl.  DATA  NOT  PRINTED  IN  OUTPUT. 

!♦*  USES  RFSlDFNl  t.LFMEN I AL  ANO  SPECIES  DATA. 

<?♦*  SAME  AS  KR(1?)=X  FXCfePI  THEPMOCHtMl CAL  DATA  ARE  PRINTED  IN 
OUTPUT.  (WHEN  X=S  KINETIC  DATA  ALWAYS  PRINTED  IN  OUTPUT). 

rOl'IVM  13  PFPMJTS  THE  ASSIGNMENT  OF  A  CONVERGENCE  DAMPING  FACTOR  (THIS 
IS  OVERRIDDEN  IE  A  SMALLER  DAMPING  FACTOR  IS  COMPUTED  INTER¬ 
NALLY  PY  SOMF  CONSTRAIN!) 

rt  mu  DAMPING  factor  is  assigned 

J  IF  .)  TS  GREATER  THAN  ZERO*  CORRECTIONS  ARE  DAMPED  UNIFORMLY  BY  J/10 

tmts  procedure  ts  not  rfcommenofo  as  ir  is  very  inefficient  and  the 

damping  COMPOTFD  HY  ThE  PROGRAM  IS  USUALLY  ADEQUATE 

COLUMN  14  DFTFPmTNFS  -OOFL  t0  DE  EMplOYED  FOR  MULTICOMPONENT  TRANSPORT 
pppppoTihS.  APPLIES  ONLY  I  OR  KR(7)  *  0  OR  CONSIDERING 
I'nM('ia|  DIFFUSION  COFFFIC I  f.N  TS  CAN  SUBSTANTIALLY  INCREASE  THE 
UiiMHFk  UF  ITFPAT10NS  (AND  SOMETIMES  CONVERGENCE  DOES  NOT 
nCCUR  T N  THE  41  LOWED  NUMHFK  OF  ITERATIONS)  OUE  TO  THE  USE  OF 
TV-EXACT  DrRIVATiVFS  IN  THF  NEWTON-RAPHSON  ITERATION  PROCEDURE 

0  rOMSfMPRS  UNEQUAL  diffusion  and  Thermal  DIFFUSION  COEFFICIENTS  FOR 
Al.l  SPECTFS 

t  CONSIDERS  unequal  DIFFUSION  COEFT-  ICIEN fS  FOR  ALL  SPECIES  BUT 
neglects  thfrmal  OTFFUSTiin 

?  CONSIDERS  EQUAL  DIFFUSION  COEFf  ICIEN"; S  ANO  NEGLECTS  THERMAL 
DIFFUSION 

COLUMN  IS  NON-ZEPO  FNTRY  PROVIDES  DEBUG  OUTPUT  FOR  FIRST  GUESSES  AND 
I  TNEAP  MATRICES  (SEE  DEBUG  INSTRUCTIONS  FOR  MORE  DETAILED 
INFORMATION  DM  COLUMNS  IS  fHROUGH  20) 

0  NO  DEBUG 

1  PIRST  GUESSFS  ARE  DIJMPfcD 

i  INF AR  MATRICES  BEFORE  AND  AFTER  INVERSION  ARE  ALSO  DUMPEO 
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COL'l*"'  I*  rNl^r  PROVIDES  ufeduG  OUTPUT  FOR  WALL  FLUXES  AND 

S'ikF *H.F  *  mJl.IBRIUM  ITFPATIOw  (SOME  OF  ThE  TESTS  APE  ACTUALLY 
'Aflllh  OKi  xw<7).  SEE  DEHUG  JnSTROCI  IONS) 


0  mo  i  it- Pur, 

X  FOR  *  rWFAU*  Imam  ZERO,  THE  DERIVATIVES  O’-'  WALL  ENERGY  AND  MASS 
F|.UX>-S  WITH  RESPECT  TO  PEDUCED  NONLINEAR  VARIABLES  (QQJRNL)  *  ANO 
* HF  ASSOCIATH)  ERRORS  (WALLOJ  AND  OELQJW)  are  dumped.  ALSO*  the 
matrix  of  rail  relations  before  and  after  matrix  inversion  is 

ntjMPEO  FOR  KP(ll)*?  PROBLEMS. 

Y  FOR  Y  GREATER  THAN  UNITY*  SURFACt  EQUILIBRIUM  ITERATION  INFORMATION 
IS  AlSO  DUMPED  (AS  IN  KR ( 18) )  ANU  IF  KR(17)  IS  GREATER  THAN  ZERO* 
THE  DERIVATIVES  OE  WALL  ENfR(>v  AND  MASS  ELUXFS  WITH  RESPECT  TO  ALL 
NONLINEAR  VARIABLES  (OUJNL)  ARE  ALSO  DUMPED. 


COLUMN  | 7  NUN-ZERO  ENTRY  PROVinES  DEBUG  OUTPUT  FOR  COFFElCIENTS  IN  NON- 
I  INEAR  EQUATIONS  ANO  FOR  SIRtAMWISE  DERIVATIVES 

0  MO  DEBUG 

A  FOR  X  GREATFR  Than  ZERO,  STREAMWISE  DEWIVATIVt  INFORMATION  IS 
miimf>EO  . 

Y  FOR  ( Y* I-TTS)  GREATER  THAN  ZERO,  WHERE  ITS  IS  THE  NUMBER  OF  THE 

CURRENT  BOUNDARY  LAYER  ITERATION.  THE  COEFFICIENTS  WHICH  COMBINE  TO 
MAKE  UP  THE  NONLINEAR  EQUATIONS  (COEEQV  ARRAY)  ANO  CERTAIN  LINEAR 
ANu  NONLINEAR  ERRUP  INFORMATION  ARE  DUMPED  ANU  TnF  DERIVATIVES  OF 
IMF  NONLINEAR  EQUATIONS  WITH  RESPECT  TO  THE  NONLINEAR  VARIABLES 
(AM  ARRAY)  ARE  DUMPED  BEFORE  AND  AFTER  INVERSION. 


COLUMN  IB  NON-ZERO  FNTRY  PROVIDES  DEBUG  OUTPUT  FOR  CHEMISTRY  ITERATION 
(KRC7)  «  0  OR  ?  ONLY).  (THE  fF.STS  APE  ACTUALLY  MADE  ON 
KR(7).  SFE  DEBUG  INSTRUCTIONS). 

n  NO  OEHiir, 

)  DUMPS  CHEMISTRY  HFRATIONS  IN  UEIAIL  FOR  ITS  GREATER  THAN  4S  WHERE 
ITS  1  THE  COUNTER  ON  CHEMISTRY  ITERATIONS 

?  DUMPS  ONE  • .  I  ME  PER  I T£RA  T I  ON  DURING  EACH  CHEMISTRY  ITERATION 

Y  FOR  V  (IF  3  THROUGH  G.  DUMPS  CHEMISTRY  ITERATIONS  IN  DETAIL  WHEN 
<5<MY-?I-!TS>  IS  DBF  ATE  W  THAN  ZERO. 

X  FOR  X  OF  7  THROUGH  9*  UUMPS  CHEMISTRY  ITERATIONS  IN  DETAIL  WHEN  ITS 
IS  GRFaTER  IHAN  I0X-S0. 
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COLUMN  14  NON-ZERO  ENTRY  PROVIOFS  OEHUli  OUTPUT  FOK  LINEAR  AND  NONLINEAR 
fPPORS 

n  no  or  mug 

I  OUMPS  (FOP  EACH  I ! FRA T ION)  THE  FOLLOWING.  ERRORS  FOR  NONLINEAR 

COLUMN  ?0  NON-ZERO  entry  provides  debug  output  for  thermodynamic  and 

TRANSPORT  PROPERTIES  <K»  C  7)  »  0  OR  2  ONLY). 

0  NO  DEHUG 

X  FOR  X  GRFATFR  Than  7fRO»  GIVES  THERMODYNAMIC  AND  TRANSPORT  PROPERTY 
INFORMATION  FOR  EACH  CHEMISTRY  SOLUTION 

?  GIVES  matrix  Of.  PROP6-!; f Y  DERIVATIVES  HEFORE  ANO  AFTER  INVERSION 

F1FLD  ?  (COLUMNS  CASE 

rITt  F  OF  CASF  (A| PHANUMFRTC) .  USED  FOR  iOENI IFICATlON  OF  PRINTED  OUTPUT) 
CARO  ? 

I nSfwt  a  bLANK  Caro  hfpf 

GROUP  ?  N'.IMHFP  OF  FLFMFNIS  (CAl  LEU  FROM  RfCASE) 


CAPn  1.  FORMAT  (  T?,«x  ,4.1U  > 

FIFLO  1  (COIUMNS  (-2,  RIGHT-JUSTTFIEU) .  MSP 

\JMfit-p  OF  FI.KmfnTS  IN  IHF  STSTFM  NOT  INCLUDING  ELECIRONS  (MAX.  OF  9) 


F  f  F|.DS  ?-Sl  (COIUMNS  (!l-HO),  KS(M).  M*1.N5  •••••  USED  ONLY  for  KR(9) 

OR  ANY  OF  THF  KR4  m  ?  OR  A  ••*•* 

THF  SURFACE  maTFRIAI  IS  SPECIFIED  IN  ADVANCE  HY  THE  USER  FOR  KRI9)  * 

•»  OP  4.  UP  TO  YmRF  F  MATFRIA!  COMHINAUONS  ARE  allowed.  EACH 
COmm InaT IOn  may  MAVF  A  SFRARATF  PYROLYSIS  GAS  ANO  CHAR  MATERIAL 
SPECIF  IEii  I  ,j  GROUP  n,  FJFLO  S.  FNTFR  A  I,  2.  OR  3  TO  OENOTE  MATERIAL 
COM4 1  NAT  f  OR  !.  p,  im  »  CTAMlJN'i  «IlH  I  Hf  STATION  1  ENTRY  IN  COLUMN  ||( 
STATION  ?  In  COL"MN  »?,  Fic.  SFF  Ai_Su  GROUP  G.  CARDS  1  AND  2. 
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uBOUP  3  TTMES  ANn  STATIONS  (CALLFO  FROM  RECASE) 


CAPO  1.  FORMAT ( I?) 

FI  FLO  l  (COLUMNS  l-?.  RIGHT-JUSTIFIED!  *  NITFM 


NUMBER  OF  TIMFS  (OR  SUBCASES!  HFTNG  CONSIDERED  tN  PRESENT  CASE.  (MAXIMUM 
OF  Sft),  A  SERIFS  OF  PROBLEMS  CAN  BE  CONSIDERED  AS  A  SEQUENCE  OF  TIMES 
(OR  SUBCASES!  IN  THF  SAMF  CASE  AS  LONG  AS  THE  FOLLOWING  ARE  UNCHANGED* 
NUMBER  OF  EI.EMFNTS  (GROUP  ?! .  STREAMWISE  STaIIONS  (CARO  3  AND  CARO  SET 
4  BF  THIS  GROUP!.  NODAL  SPACING  (GROUP  4!.  MOOT  SHAPE  (GROUP  5!.  AND 

elemental  and  spfcies  oata  (group  io  or  ii  thru  141  (and  thus  edge  gas 

AND  WALL  MATFRIAI!.  CALCULATIONS  ARE  PERFORMED  FOR  ALL  TIMES  AT  A 
GIVEN  STATION  BEFORE  PROCEEDING  TO  NE*T  STATION  AND  THUS  APPEAR  IN  THIS 
orofr  in  thf  printed  and  punched  card  output. 


CARD  SET  ?.  FORMAT (BF10.41 

FI  FLU  1  (COLUMNS  1-10!.  FIELD  2  (COLUMNS  11-20).  ETC..  8  TO  A  CARD. 

TINE (  M).  M*|. NITFM  (SEF  CARO  l  OF  THIS  GROUP) 

TIME,  SFC.  THIS  VARIABLE  SERVES  ONLY  TO  IDENTIFY  SOLUTIONS  SINCE  TIME 
OOFS  not  ENTER  Into  the  solution  OF  THE  PROBLEM,  use  a  negative  entry 
FOR  TIME ( 1 )  !►  IT  IS  DESIRED  THAT  THF.SE  lUfcNTIFlCA UON  NUMBERS  BE  CALLED 
CASFS  IN  Tup  OUTPUT  FORMAT  (OTHERWISE.  I  HE  Y  APE  IDENTIFIED  AS  TIMES). 


CARD  3.  FORMAT (1?.«X. 4011) 

FIELD  ]  (COLUMNS  )-2.  RIGHT-JUSTIFIED).  NS 
NUMHFR  OF  STWFAMwlSF  STATIONS  (MAXIMUM  OF  40) 

F I  FLU  ?  (COLUMNS  1 1 —SO  *  *  KR9 

VALUES  TO  «F  ASSIGNED  TO  KR(9>  WHEN  WALL  HOUNOARY  CONDITIONS  ARE  TO  BE 
ChaNGCO  AT  DOWNSTRtAM  STATIONS  (SEE  CARO  1  OT  GROUR  p.  COLUMN  U 
CORRESPONDS  TO  STATION  S(l).  COLUMN  12  TO  STATION  S(2).  A NO  SO  ON. 

IF  WALL  BOUNDARY  CONDI! IONS  ARF  NOT  TO  Rt  CHANGED  AT  DOWNSTREAM 
STATIONS.  THIS  FIFLO  SHOULD  BE  LEFT  BLANK.  WHEN  The  KRS(  )  ARE 
fMPLOVCO.  *Rt r>  SHOULD  BE  GIVEN  THE  VALUE  NECESSARY  TO  READ  ALL  APPROP¬ 
RIATE  wall  data  (group  »m.  ai  the  present  time,  it  is  possible  to  con¬ 
sider  any  COMBINATIONS  KB9  OF  ?.  1.  ANU  4  COMPRISING  REGIONS  OF  AN 
ABLATION  MATFRIAI  A NO  RFGIONS  WhfR£  THERE  IS  NO  ABLATION  (THESE  NON- 
ABLATING  REGIONS  ARE  OBTAINED  8*  USE  OF  )  »  ?  WHILE  ASSIGNING  ZERO 

COMPONENT  M*sv  FLUXkS,  SFE  CARO  SET  11  OF  UROOP  18) 
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CARD  SET  4.  F OwM  A T (  Mt  1  0 . 4 ) 

FIKLO  i  (COLUMNS  |-10)»  FIELD  2  (COLUMN!*  ll-?0>,  ElC.»  8  TO  A  CARD. 

S(  L).  I  *  1  .NS  <SFF  CARD  1  OF  1HIS  GROUP) 

S  I HP  AMW I  St  DISTANCE  UPON  WHICH  houndawy-layfr  SOLUTION  is  based,  feet. 

A  BLUNT -BODY  PROBLEM  (KR (H )  a  0.1  OR  5)  SHUuLO  START  WITH  AN  S<U  OF  0. 

A  SHAPP-bOOr  PPOhELm  (  k  R  ( b )  *  2.3  OH  7)  U*  A  NO?/Lt-IYPE  PROBLEM  <KR(6>» 
4  UR  H)  MUST  NO  I  STuPT  WITH  A  5(1)  OF  0.  BU(  MUST  STAHT  WITH  SOME  FINITE 
DISTANCE.  THF  BOUNDARY  LAYtR  IS  ASSUMED  TO  BE  SIMILAR  UP  TO  AND  INCLUD¬ 
ING  This  F IMS T  STATION,  a  NEGATIVE  entry  fur  s<  l>  signifies  a  discon¬ 
tinuity  at  THAT  ST A I  TON.  IMIS  MROUUCkS  A  TWU-POiNT  DIFFERENCE  SOLUTION 
AT  The  FTWST  station  after  IHE  UlSCONflNUi TY  and  THUS  has  an  EFFECT  ONLY 
F UW  I'hHF.E-POInT  SOLUTIONS  (AM(3>»2),  ALSO,  FOR  BLUNT  BODIES,  A  MINUS 
SIGN  AT  A  ST  a  I  ION  CAUSES  SjHEAMWISt  INTEGRATIONS  TO  REVERT  TO  S  AS  THE 
I  NOE  PENDENT  VARIABLE  -  Sff  OISCUSSION  UNDER  CARD  1.  COLUMN  fc  OF  GROUP  1. 
FOH  DATA  START  OPTION  (SF.E  GROUP  9)  1  F  IS  SUGGESTED  THAT  THE  SECOND 
STATION  BE  0.01  FEET  DOWNSTREAM  OF  THE  FIRST  AND  THE  THIRD.  ABOUT  0.05 
FEET  nONNSTPFAM. 


"op: IP  4  nijOAL  DATA  (CALLED  FROM  RFCASEI  ***  SKIP  THIS  GROUP  FOR  KR(1>»0  *•* 


CARO  1.  FORMAT  d?)  *****  USED  UNLY  IF  KB(1)=1  ***** 

F I cl 0  1  (COLUMNS  )-?.  MIGHT-JUSTIFIEUI .  NETA 

NUMBER  mf  NODAL  Pi  INIS  ACROSS  THF  BOUNDARY  LAYER  INCLUDING  WALL  AND 
BOUNDARY  LAYER  FfM.E  ( M  A  Y  \ MUM  OF  151. 


CARO  SKf  7,  FOkM/»T(HF10.4)  *****  USED  ONLY  IF  KR(1)*1  ***** 

FIELD  l  (COLUMNS  1-10),  FIELD  ?  (COLUMNS  11-20),  tTC..  d  TO  A  CARD, 

FT  A (  I ) «  !  =  1 .NF I  A  (SEE  CARO  |  OF  THIS  GROUP) 

FT  A  STATIONS  ACROSS  ThF  BOUNDARY  LAYER,  ST  ART  I  Nr,  AT  THE  WALL 

(eta  *  o.o).  no r f  that  tmesf  arf  actuali  y  n  values,  as  DinireD 

BT  FDMATION  NO,  V* .  NASA  CR  50*?,  OTHER  REFERENCES  TO  eta  IN  the 
INPUT  SECTION  of  THIS  MANOAl  also  refer  TO  n-  IT  IS 

RfCCMMENOtO  That  I  he  VAt  UE  UF  eta  AT  THE  BOUNDARY-LAYER  EOGE  BE  GIVEN 
A  VAI  HE  OF  ABOUT  S.O  Sn  THAI  THF  SIRFTChINC.  PARAMETER  WILL  BE  NEAR 
UNITY.  AlSn,  TnrRE  Should  NOT  PF  MUCH  MORE  THAN  A  TWO-FOLD  CHANGE 
IN  OTSTaNCF  hFTWffn  TWO  HFlOHnOPINr,  NUDES.  BEST  ACCURACY  FOR  A  GIVEN 
NUMBFR  OF  NOUFS  |S  OBTAINED  IF  The  nodes  are  CLOSER  TOGETHER  NEAR 
The  wall.  FOB  I  AMINAR  PROPLFMS,  ?  NODES  ARE  OFTEN  SUFFICIENT  WITH 
A  TYPICAL  SPaCIND  BEING  n.O.  O.S,  1.0.  1.5,  2.0,  3.0.  5.0  AND  WITH 
KAPPA  =  s.  CHAP  «  o . h  (SEE  CAHO  3,  FIELDS  i  AND  7  OF  THIS  GPOUP).  FOR 
TURBULENT  BOUNDARY  LAYUPS,  morf  NODi-S  ARE  NFFDFO  CLOSF  10  THE  WALL  DUE 
TO  THF  STE CJ  GRADIENTS  THERE.  A  TYPICAL  SPACING  WOULD  BE  0.0.  0.C24. 
0.040.  0.07<;,  0.1,'"*.  0.?00»  0.320,  0.4R0,  O.HOO,  1.400.  2.000,  3.200. 
S.oon.  WITH  KAPPA  a  11  AMD  CHAR  *  O.RS.  WHATEVER  THE  NODE  SPACING  THE 
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iiv>>  MIIM  EXamImf  lHF  SOLUTIONS  TO  BF  SURF  1m4t  4  REASONABLE  CURVEFJT 

ts  ohtainfi)  nfar  r hf  wai  i  .  this  can  hf  a  prorlfm  for  i  ahge  streamwise 

O I  ST  «I*!CP  s  IN  TiMmHLFMT  FLOWS.  IN  CHICKING  fMF  RFSULTS,  FOR  TURBULENT 
hOUnmARV  LAYERS,  T HF  OImFNSIONLFSS  eduy  viscosity  should  be  less  than 
n,n<5  fRHOSO*EPS/RHQE*MUE  IN  ThE  OUTPUT)  FOR  THF  SECOND  £TA  NODE  TO 
(nS.irE  <;non  WAI  i  C**RVfc'F  I  TS,  OPTIMUM  MODELING  OF  THE  TRANSITION  REGION 
OF  THF  PROFILE  REQUIRES  SUFFICIENT  £Ta  SPACING  BETWEEN  THE  VISCOSITY 
RATIO  VAI.UFS  OF  0.1  TO  10.  IT  TS  SUGGESTED  iHlS  INTERVAL  CONTAIN  AT 
LLAST  SEVEN  NODES. 


CA»0  FORMAT(  IP.EM.A)  *•**•  USED  ONLY  IF  KR())*l  ••••* 

E1FL0  1  ( COLUMNS  1-2*  RIGHT-JUSTIFIED) .  KAPPA 

TUF  VARIABLE  KAPPA  IS  ASSOCIATED  WlM  1 HF  CONSTRAINT  WHICH  IS  UTILIZED 
ro  ►►►EOT  A  si  retching  of  fia,  THE  BOUNDARY-LAYER  coordinate  normal  to 
The  SURFACE*  IN  r.POF.fy  To  EFFECTIVELY  use  me  assigned  nodal  SPACING  (SEE 
capos  i  ano  ?  of  this  ghoupi.  kappa  is  me  index  for  the  nodal  point 

at  WHICH  THF  VELOCITY  HATIO  IS  FIXED.  TO  ILLUSTRATE*  IF  KAPPA  IS  5* 

THF N  THF  FIFTH  NOOPL  POINT  COUNTING  FROM  THE  WALL  ANO  INCLUDING  THE  WALL 
WILI  HAVE  A  VAIUF  OF  C«aR  (A  QUANTITY  WHICH  IS  INPUT  IN  THE  SECOND  FIELD 
OF  THIS  CARD). 

F IFl 0  ?  (COLUMNS  0-12).  CRAP 

CRAP  IS  ThE  VALUE  CF  THF  VELOCITY  RATIO  AT  THE  BOUNDARY-LAYER  NOOF 
OFSIGNATFU  kappa  (SEF  DISCUSSION  UNDER  FIELD  1  OF  THIS  CARD).  FOR 
EDGE  VORTICTTY.  ThF.  VELOCITY  AT  KAPPA  IS  RATIOO  TO  THE  LINEAR  EXTRAP¬ 
OLATION  OF  The  EDGE.  VELOCITY  TO  THF  KAPPA  NODE. 


GROUP  S  ROOY  SHAPF  DATA  (CALLED  FROM  RECASE) 


CARO  l*  FORMAT (?f 10. A)  •••••  USED  ONLY  IF  BLUNT  ROOY,  KRUSMO.l.  OR  5  *•••• 
FJEIO  l  (COLUMNS  1-10).  CONE 

CONE  MALE-ANGLE  IN  SPMEPE-CONE  SHAPF  BODIES*  LEAVE  BLANK  FOR  OTHER 
«00Y  SHAPES. 

FIELD  2  (COLUMNS  11-20)*  RN05E 

EFFECT „ VF  NOSF  RADIUS.  EFET.  TMf  VALUE  READ  INTO  THIS  FIELD  IS  OVFR- 
OIDHFN  IE  THE  PRESSURE  PATIO  AT  T«K  FIRST  STATION.  PRE < 1 ) »  IS  READ  IN  AS 
A  /FRO  (SFP  CARf  SFT  1  or  GROUP  IS).  IF  PRE ( 1 >  IS  N0N-7ER0.  THEN  4  NON- 
2fMn  EMI p Y  IN  Ime  CURRENT  FIELD  IS  USED  IN  Y rtf  CALCULATION  OF  STAGNATION 
POINT  VEIOCTTY  GRAUfEUT  FROM  THF  NEWTONIAN  RELATION 
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HUES  =  SURT (P./RHOE  *  PE  «  .32.1740  *  ?li6.)  /  RNOSE 

WHFRF  OUFS  IS  THF  ST AGNATION)  POINT  VELOCITY  GRADIENT  AND  RHOE  ANO  PE  ARE 
LOCAL  STAGNATION  DENSITY  (Lti/FT3)  AND  PRESSURE  < ATM) ,  RESPECTIVELY. 

THIS  latter  approach  IS  REQUIRED  FOR  BLUNr-80DY  PROBLEMS  IF  THERE  IS 
ONLY  ONE  STATION  (NS  =  1,  SEE  CARD  3  OF  GROUP  3> i  WHEN  RNOSE  IS  READ 
TnTO  THE  CURRENT  FIELD  AND  NOT  REING  OVERRIDDEN  (I.E.*  WHEN  PRE  ( 1  >  IS 
NOT  SEI  EOUAt  TO  7^-PO)  A  MACH  NUMBER  CORRECTION  (IMPORTANT  FOR  LOW  FREE- 
STRFam  maCH  NUMBFRS)  CAM  BE  MAOE  RY  INPUTTING 

RMOSE  =  REEF  /  SORT (1 .  -  PINF  /PE) 

WHtRF  HFFF  TS  Tm  T vi ik  fFFeCTIVF  NOSE  RADIUS  (FEET)  AND  PINF  IS  THE  FREE 
STRFam  STATIC  PrksSMqF  (LH/F  T2) .  (IF  THE  CURRENT  FIELD  IS  LEFT  BLANK  ANO 
PRF  ( 1 )  TS'non-ZFRO,  THF  STAGNATION-POINT  VELOCITY  GRADIENT' IS  COMPUTED 
from  a  C’.IRVF  Fir  OL  ThP  PRE  AROUND  The  body,  in  any  EVFNf.  a  CURVE  FIT 
nF  uprSSURF  (S  I'SKD  TO  COMPUTE  VELOCITY  GRADIENT  FOR  STATIONS  2  AND 
«FY«NO). 


CAPO  SPT  FORMAT (AP10.4)  *****  NOT  USED  IF  Kr(6)»T  OR  3  ***** 

FTCI.0  1  (COLUMNS  1-10).  FTFLD  ?  (COLUMNS  11-20).  ETC..  8  TO  A  CARD* 
hokaP(  1).  l.  =  l*  NS  (SFF  CARD  3  OF  GROUP  3) 

THIS  IS  r Hf  i  OCAI  BODY  RADIUS  IN  FEET  NORMAL  TO  THE  BODY  CENTERLINE 
RA  [ gfi>  to  The  KAi  UA  POVvFR  WHFRF  KAPPA  IS  UNITY  FOR  AXISYMMETRIC  BODIES 
AND  /tRO  F OH  PIM'AR  HODTFS.  THFRFFORE.  ROKAP  IS  UNITY  FOR  PLANAR  BODIES 
AND  i ->Lrtl.  BODY  RADIUS  F  OR  AXISYMMETRIC  BODIES.  TtfO  SPFClAL  INPUT 
FORMATS  C*\i  wt-  USFD.  FOR  SPHERE  CONE  BODIES,  SET  ROKAP  ( 1 '»  EQUAL  TO 

THF  hosp  Radius.  THE  NUSF  RADIUS  IS  THEN  SET  TO  -  ROKAP T 1 )  AND 
WOK  AR  < 1 )  IS  T  To  /FRO.  IF  SUBSEQUENT  ROKAP (  )  are  INPUT  as  ZEROES* 

Thp  PROGRAM  COMPUTES  ROkAP  F*OM  S  FOR  A  SPHERICAL  NOSE*  THE  FIRST  NON- 
7FRO  FNTPY  IS  THF  ROKAP  AT  THE  CONE  TANGENT  POINT.  IF  THIS  IS  AGAIN 
FOLLOWED  HY  ZEPOFS,  l.INFAR  INTERPOLATION  IS  USED  TO  THE  NEXT  NONZERO 
FNTRY  TO  YIELD  R^KAP  ALONG  A  CONICAL  AFTERBODY. 

FOP  SHARP  CONES,  KR(6)  =  ?  OR  7,  SET  ROKAP(l)  EQUAL  TO  MINUS  THE 
CONF  HAI  F  ANGLE  IN  DFGRFFS.  ROKAP (1)  IS  THEN  SET  TO  ZERO  AND  THE 
PROGRAM  COMPUTES  ROKAP  FROM  S  FOR  A  SHARP  CONE  OF  THE  SPECIFIED  HALF 
flNGI  s  . 
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4 


i, ROUP  *  MATFR|A|_  PRO PFRTY  n/kT*  NEEUEO  FOR  HALL  GU*S I-STEAOY 
(CALI  FO  From  RFCASE)  *****COMSIDLR  THIS  GROUP  ONLY 

IMF  KRv  IS  EOUAL  TO  3  OR 


FNERGY  BALANCE 

T F  KR(9)  OR  ANY  Of 

GREATER****** 


CARO  l«  FORMAT  (9f*».l)  ••  USED  ONLY  IF  SR<9)  OR  ANY  OF  TM£  KR9  IS  3  OR  A  •• 

FIELOS  1.4,7  (COLUMNS  1-8.  ?S-3?.  49-S6) ,  EMlVtl) *1*1.3 

SURFiCF  FMlTTANTr  OF  TNF  MATERIAL  COMBINATIONS  BEING  CONSIDERED  UNOER 
HR  (9)  OR  *P9  OF  3  OR  4. 

FIFLOS  ?<,S,D  (COLUMNS  9-16.  33-40.  57-64).  rtCARRt I)«I*1.3 

MEAT  OF  FORMATION  (MTl»/L«)  OF  T^E  VIRGIN  STATE  OF  ThE  ABLATION  MATERIALS 
BffMr,  CONSTOFRFi)  UNDER  <R(9)  OR  f«9  Of  j  OR  a,. 

FTFtfvS  3.4,9  (CO!  I.MNS  l7-?4,  41-48.  65-7?).  MPC,  ( I  >  ,  I«1 .3 

HEAT  OF  FORMATION  (HTtl/I.R  I  OF  THE  T  RANSR IWANTS  BEING  CONSIDERED  UNDER 
•fR (9i  D»  KR9  OF  3  O*  4. 

CARO  ?.  Format <6A4>  ••  USED  ONLY  WITH  CARO  1  *» 

FIfLOS  ),?,  AND  3  (COLUMNS  1-M.  9-16.  I 7-?4) 

NAMc9  of  SURFACE  SPECIES  for  MATERIAL  COMBINATIONS  1,?,  ANO  3  EXACTL.  as 

tmf y  4)‘pr ar  in  The  thermooynam ic  data  tables  (group  n>,  left  justified. 


GROUP  7  El  NC  T  ( ON—Of  -TIME  OATa  (CALLED  FROM  RECAS£> 


CARD  SFT  l,  FORMAT (BFIO. 4) 

Firto  I  (COLUMNS  1 -1 6),  F f ECO  ?  (COLUMNS  II-?0).  ETC,.  8  fO  A  CARD. 
PTFT(  *!,  M*l.NtrfM  (S*f  CARO  l  OF  GROUP  3) 

LOCAL  STAGNATION  pressure  fur  FaCm  IJME  HF  INC.  COnSIOFRFO*  ATMOSPMrRfS 
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CAR!)  SET  ?.  FORMAT ISflC. 4) 

F  fF( M  1  (COLUMNS  1-10T«  FIELD  ?  (COLUMNS  1 1—201 •  ETC.  •  A  TO  A  CARD* 

gm  m),  m.i.nHfm  (sff  card  l  of  group  3) 

STAGNATION  FNTMAI  MY  for  FACH  TIME  Ht  TNG  CONSIDERED*  RTU/LA 


CARO  SF T  3  FORMAT (hK 10.4) 

FIELD  1  (COLUMNS  1-10).  FIFlU  ?  (COLUMNS  11-20) •  FTC,*  A  TO  A  CARD* 

RAUFI.  (  M),  Mil  »N  I TEM  (SEE  CARO  1  OF  GROUP  3) 

TNciHFNT  RAGf  aT  ( (it1  Fl.UA  AMSORfjfn  NY  I  HE  SURFACF  AT  STATION  S(l>  FOR  EACH 
T I Mf  HE  f  NO  CONSIDERED*  GTU/SFC  FT?  (I?  A  SURFACE  ABSORPTIVITY  LESS  THAN 
UNlTr  TS  TO  CDNSIDFHFO*  These  entries  should  RE  CORRECTED  for  surface 
absorptivity) .  This  f ne no** a t i on  is  used  only  for  kk(9)  or  krr  of  4  or  g. 
t n  - ■  i r  hi.anks  t r;  tm»s  fitlu  for  othfr  types  of  problems.  radiation  flux 
at  OTwFp  stations  «rl|L  HE  INPUT  aS  RAlIOS  iN  GROUP  15. 

GROUP  M  TUPH*'LFNT  flow  PARAMETERS  (CALLED  FROM  TREMBl  1  ***»  CONSIDER  THIS 
GROUP  ONI  Y  IF  KR(7)=?  OR  3  **•* 


CARn  I*  FORf-AT  (GF  1  o.  ■)> 

FTFIOS  i-*.  (C01  UMNS  1-10.  11-20.  Pi -30.  31-40*  41-50.  51-60)  ELCON,  YAP. 
CiNUM,  scr.  PRT.  RFTR 

FI.COM  (S  T mf  PPANUTl  MIXING  LENGTH  CONSTANT  (0.44  IS  A  TYPICAL  VALUE). 
yap  is  A  Constant  UK  PPOPOwT TONAL  I T Y  In  THE  MIXING  LENGTH  EXPRESSION 

(*i.h?3  is  a  typical  value). 

CLNUM  (S  TmF  CLAI'SEP  CONSTANT  of  PROPOHI IONALI TY  IN  KA*E  REGION  (0.018 
! S  A  TYPICAL  VALUE) . 

SCI  TS  TMF  Towns MINT  SCHMIDT  NUMBER. 

pwT  is  the  TUPMUl  FNT  PPANDTL  NUMBER. 

RFTR  IS  THF  TRANSITION  REYNOLDS  NUMBER  BASED  ON  MOMENTUM  THICKNESS.  IF 
.TIP  js  FXCFE'iM*,  TURDULtNCt  TFRMS  KILL  BE  TNCLUDEO  IN  THE  GOVERNING 

.RUATfONS. 
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GROUP  g  Fi*st  GUESS  Uv  RESTART  INFORMATION  ICAuLED  FROM  F IRSTG)  ***•  SKIP 
THIS  ARO« JP  FOR  KH (?)■?.  CONSIDER  ONLY  CARO  6  FOR  KP(2)»0 


C*BO  T*  FOBMAT(3KlO,4.SXtIS>  *•••  USED  ONLY  FOR  KR(?)«l  OR  3 


FIFIO  |  (COLUMN  l-IO)  ALPM  (NON-DIMENSIONAL) 

FI»ST  GUESS,  RESTART.  OR  OATa  START  (INPUT  OF  A  MEASURED  PROFILE)  VALUE 
FOR  T«F  MOUNOAPY  LAYER  NORMALIZING  PARAMETER*  ALPHA.  FOR  A  OATA  START. 
TMF  VAU'F  OF  Al  Pma  MUST  «F  CONSTSTENT  WITH  THE  INPUTS  TN  FIELDS  2  AND 
1  OF  THIS  CAPO  AMO  <»F  CAPO  3  OF  THIS  GROUP.  MAY  BE  CALCULATED  FROM 
F(J(lA  T  f  Ofc,  61  OF  RFFfc' RgwCF  1. 

FTFLD  ?  (COLUMNS  F  (  1  *  I )  (NON-U  I MENS I  ON AL) 

FIRST  (UIFSS,  RESTART.  OR  OAlA  START  VALUE  EOR  THE  STREAM  FUNCTION  AT  THE 
HAL'  .  ThF  VAI  OF  OF  TmIS  PARAML TER  MUST  b£  EQUAL  TO  THE  VALUE  OF 
EQUaHOR  63  OF  REFERENCE  I  ASSUMING  A  CONSTANT  INTEGRAND  WITH  ALL 
OUA^TTTTFS  EVALUATED  AT  THE  input  STAIION.  THE  VALUE  OF  The  integration 
VARIABLE.  XT.  IS  FOUND  TN  EQUATION  61  OF  REFERENCE  1  BY  AGAIN  SETTING 
THF  (NTFC.HAND  CONSTANT  AT  THE  VALUE  OF  THE  INPUT  STATION  WITH  THE  INT¬ 
EGRATION  VAPIAHIF.  S,  SET  EQUAL  TO  THE  FIRST  ASSIGNED  STREAMWISE 
OISTANCF  (SEF  CAMP  SET  4  OF  GROUP  3).  THE  ABOVE  PROCEDURE  IS  ESSENTIAL 
Rf CanSF  BLIMP  CA[ CULATFS  THESE  QUANTITIES  AT  THE  FIRST  STATION  ASSUMING 
THAT  ail  UPSTREAM  QUANTITIES  arf  CONSTANT  AND  EQUAL  TO  THE  ASSIGNED 
VALIAS  AT  THE  FIDST  STATIONS  TO  INPUT  VALUES  OF  ALPH,  AND  F(l*l>  IN¬ 
CONSISTENT  w;TH  THESE  VALUES  MAY  RESULT  IN  NON -CONVERGENCE  AT  THE 
second  STRFam*jsf  STATION. 

FIELD  3  (COLUMNS  ^l-jo)  FU.lJ  (NON-O IMENSI ONAL ) 

FIRST  GUESS,  restart,  ur  DATA  STAR!  VALUE  FOR  NORMALIZED  VELOCITY  GRAU- 
TENI  AT  THF  mAU  .  THE  COBRECT  FORM  OF  THIS  TFRM  IS 

TIT  ■  |»*U 

THIS  IS  FOUIVAIEMT  TO  J(u/n  } 

— •_  L.n 
h  in  I 

WHERE  a  I*  OK TBS©  «T  AQFAirCM  33  OF  MSA  Of  IMF*  FOR  RESTART 

OURPI'SES.  THE  FP°  NUMERICAL  VALUE  BmINTEO  OUT  BY  BLIMP  AT  THE  WALL  NOOE 
TS  CORRECT.  THF  MLI«H  TP-  G.  ANO  ELEMENTAL  MASS  FRACTION  OUTPUT  IS  ALSO 
TN  Thf  r OM»FCT  f nox  TOR  INPUT  in  CAFO  SETS  ?,  3,  ANO  4. 

FIFU'  *  (COLUMN  U-AO.  RIGHT  .JUSTIFIED*  I5T 

STATIOh  NUMBfP  fi.P  REST  ADI.  MEANINGFUL  ONLY  FOR  KR<2>"3. 
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CARu  SF  f  ?,  EOQ«aT  (Mr  )().♦>  •••«  USED  ONLY  FOP  KR(2)«1  OP  3 

F|FLn  1  (COtURNS  I  - 1 0 )  «  F 1 ELI)  2  (COLUMNS  U-201.  ETC.*  8  TO  A  CARO* 
F(2,1).  T*I.nF)a. 

FIRST  G'lFSSFS.  wfsTapT.  op  uaTA  START  VALUES  fop  velocity  patio  FI2*I» 
ACROSS  The  ROumOapy  LAYFP.  Tnt  VALUES  MUST  he  CONSISTENT  VI TH  THE  INPUT 
c  T  A  OJSTWIRIM  jnw  OF  GROUP  4.  THAI  IS*  THEY  MUST  «E  RELATED  TO  THE  FTA 
OlSTPMUTIPN  MY  a  CURVE  FIT  PROCEDURE  IDENTICAL  TO  THAT  SPECIFIED  OV 
KKIIM  IN  GROUP  (  . 


OAOO  SE  J.  FOPmaV  (heIO.O  *•••  USED  ONLY  FOR  KR(2)»I  OR  1  •••• 

FIELD  |  (COLUMNS  1-10) •  FIELD  ?  (COLUMNS  11-20).  ETC..  8  TO  A  CARO. 
M?.|)  ,  r<l|.I).  I » 1 . NF T A 

first  guesses.  restart.  or  uata  start  values  for  the  total  enthalpy 
GRAO ( E NT  at  THF  wall  urvfOEU  HY  ALPM  (G(2.l)>  AND  THE  TOTAL  ENTHALPY 
G<1.  I)  ACROSS  THE  HOUNOaRY  LAYEP. 


CARD  SF  T  4.  FORMAT (re ]o,4)  *•••  USED  ONLY  FOR  KR(?)*1  OR  3  ANO  NSP  GREATER 
THAN  1  *••• 

FTFLD  1  ( COLUMNS  1-10) •  F?fld  ?  (COLUMNS  11-201.  ETC..  8  TO  A  CARD* 
(SP(P.I.K).  SP(I.I.K).  I»1.NETA1  K»l*  NSP-T 

first  U'tFSSFS.  RESTART.  OP  DATA  START  VALUES  FOR  ELEMENTAL  HASS  FRACTION 
GRADIENT  AT  HF  wall  SP/?.1.A)  ANO  ELEMENTAL  HASS  FRACTION  VALUES 
SPd.I.K)  ACROSS  THE  HOliNnAKY  LAYER.  READ  IN  HALL  GRADIENT  ANO  VALUES  AT 
NODES  F or  each  SPEC l f S  3EFOkF  GOING  ON  TO  NEXT  SPECIES.  START  EACH 
SPATES  ON  A  HER  CARD. 

CARO  SE  T  S.  MlPMAl  (4')I2)  USED  ONLY  TOR  KP(2)«I  OR  3  AND  NSP  GREATER 

Than  1  «••• 

FIELD  I  (COLUMNS  l-?.  RIGHT  JUSTIFIED).  FIELO  2  (COLUMNS  3-4.  RIGHT 
JUSTIFIED).  FTC.,  (L£F (K>  »  K*1«NSP)  (SEE  CARD  1  OF  GROUP  2> 

ENTRIES  IN  ThFSF  FIELDS  MUSI  INDIVIDUALLY  CORRESPOND  TO  THE  ELEMENTS  AS 
THFT  ARE  SELECTED  FROM  TmF  T Mf RhOOTNAH I C  DATA  (SEE  DISCUSSION  UNDER 
GROUP  M)  ACCORDING  TO  RhFThFR.  FOR  ThE  FIRST  STATION.  THE  ELEMENT  IS 

0  NOT  PRESENT 

|  PRFSFNT  DUE  TO  I  OCAI.  INJECTION 

?  PRFCFNf  nur  10  UPSTREAM  INJECTION  (NOT  POSSIBLE  «T  FIRST  STATION) 

I  o^ESFNT  EROw  (wr  EDGE  GAS 
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CARO  *•  FORMAT (FI  0.4)  •»**«  USED  ONLY  ►OR 
eiflo  i  (columns  i-ini.  on 
FIRST  GUESS  FOR  FNTHALPY  of  the  oas  Al 


KB (2) *0  ***** 

THE  NALL*  BT'J/LR 


GROUP  10  THIS  CABO  GROUP  HOT  USED  IN  the  PRtSENT  VERSION  OF  The  program 


group  n  elemental  oata  (CALLED  From  INPUT) 

••••  SKIP  THIS  GROUP  for  KR(12)»1  OR  6  OR  FOR  KR(7)*1  OR  3  •*»* 


CARO  1,  FORMAT (I3.F7.0.7E10.4)  **«*  USED  ONLY  FOR  KR ( 12) *0*2*5*  OR  7 

FIELD  1  (COLUMNS  1-3.  RIGHT-JUSTIFIED) •  IS 

NUMHFP  OF  elements  in  THF  SYSTEM  INCLUDING  ELECTRONS  if  CONSIDERED  (THIS 
ENTRY  WILL  PP  Tm(  SAME  AS  CARO  1  OF  GROUP  2  (EXCEPT  FOR  THE  DIFFERENT 
FORMAT)  FOR  SYSTfmS  NOT  CONTAINING  ELE  Cl  RUNS  HUT  WILL  BE  ONE  GREATER  FOR 
SYSTFMS  CONTAINING  ELECTRONS) 

FIELDS  ?  AM)  3  (COLUMNS  4-10.11-20)  FEAR.  F I TMOL 

CONSTANTS  TN  TMP  CUPVFFtT  OF  FF(J)  IN  TERMS  OF  MOLECULAR  WEIGHT.. 

FF ()»a(WIM(J)/Fl fMOL)**FFAR 

FFAR  and  FTTMOL  ARE  RWESU^tj  TO  HE  0.431  AND  23.4  IF  NO  ENTRY  IS  MADE. 

FIFLOS  4,  S:  ANO  6  (COLUMNS  21-30.  31--G.  41-50)  BASMOL*  SIGMA.  EPOVRK 

THFSF  VARIABLES  OFFInE  THF  REFFRENCE  SPECIES  PROPERTIES  FOR  FF(J)  (REF. 
S).  RASMOL  IS  THF  MOLECULAR  WFIGHT  OF  The  REFERENCE  SPECIES.  SIGMA  AND 
FPOVPK  ARE  THF  SPECIFS  SIGMa  ANO  fPSILON/K  AS  DEFINED  BY  REFERENCE  ft. 

FOR  THF  CONVENIENCE  OF  THE  USER,  A  TABLE  OF  SIGMA  AND  FMOVRK  REPRODUCED 
FROM  REFFRENCE  h  IS  INCLUDED  AS  APPENDIX  II  TO  THIS  MANUAL.  STANDARD 
VALUES  OESCRIHFO  IN  REFERENCE  5  ARE  USED  IE  NO  ENTRIES  ARE  MADE. 
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EIFLD  7  (COLUMNS  71-81)  TF(N*U  ****  USED  ONLY  FOR  KR(9)  »  2  WITH  KR(II) 

*  0  •»*» 

ABLATION  TFmpfRATUPe.  ABOVE  whICH  EQUILIBRIUM  ChAR  REMOVAL  RATE  WILL  8E 
DETERMINED.  RELOW  THIS  TEMPERATURE «  SURFACE  EQUILIBRIUM  IS  SUPPRESSED. 
AUTOMATICAL! V  SET  TO  SO. 000  K  IF  NO  ENTRY.  AN  ABLATION  TEMPERATURE  MUST 
Me  FNTF»FO  HERE  TF  SURFACE  CHEMISTRY  IS  TO  BE  CONSIDERED. 


CAPOS  2.0....IS  (ONF  FOR  FACH  ELFMENT.  SFfc  CARD  1.  FIELD  1  OF  THIS  GROUP). 

FORMAT  (T3.1A4.F9.  3. TE*. T)  <♦«**  USED  ONLY  FOR  KR ( 1?) >*0.2.5«  OR  7  »** 

FTPLi)  1  (COLUMNS  |-3.  H IGHT-JUSTIFIEO) »  KAT (K) 

ATOMIC  NUMRFR  OF  ELEMENT  (99  FOR  FLECTRON).  CAROS  MUST  BE  ORDERED  WITH 
THIS  NUMRFR  ASCFK'OING  WITH  ELECTRON  LAST  (WHEN  CONSIDERED). 

FIELD  ?.  (COLUMNS  4-TS)  ATA(K),  A  Tfl (K ) ♦  ATC(K) 

NAME  OF  FIFMF'NT  n*SE 0  FOR  OUTPUT  ONLY).  FOR  BEST  LOOKING  OUTPUT.  ELEM- 
FNTS  WITH  3  OR  4  LETTERS  («.g.,  IK0|B)>  SHOULD  START  IN  COLUMN  6,  ELEMENTS 
WITH  5.  A.  OR  7  I  FTTFRS  (e.g.,  CARBON)  SHOULD  START  IN  COLUlflT  5,  AND 
PLF'mknTS  WITH  8  OR  MORE  LETTFRS  («.g.,  NITROGEN)  SHOULD  START  IN  COL.  4. 

I 

F I Fl.0  1  (COLUMNS  lG-2<»>.  WAT  (K ) 

ATOMIC  WEIGHT  OF  FLEMENT 
FIFLO  4  (COLUMNS  ?S-3?)  TK(K.l) 

amount  of  element  in  boundary-layer  edge  gas.  see  below  for  units. 

FIFLUS  q  TO  10  (COLUMNS  31-40.  41-48,  49-56,  57-64,  65-7?.  73-00)  TK(K.U) 

)*?.7 

AMOUNT  OF'  ELFMENT  IN  PYROLYSIS  GAS  AND  CHAR  FOR  EACH  OF  THE  THREE  ALLOW- 

AHLE  MATFRIA1S.  FIELDS  S  AND  6  ARE  FOR  MATERIAL  1,  FIELDS  7  AND  8  FOR 

maTFRTAI.  2,  ETC.  NEGATTVF  VAL'IFS  ARE  USED  TO  DESIGNATE  RELATIVE  MASSES 
OF  FOMENTS.  WHEREAS  POSITIVE  VALUES  ARt  USED  TO  DESIGNATE  RELATIVE 
MUMMERS  OF  ATOMS.  AS  AN  EXAMRLF  OF  THE  LATTER.  THE  ENTRIES  FOR  A  SILICA 

CHAR  COULD  HE  1.  F'Ow  THF  ELEMENT  SILICON  AND  2.  FOR  OXYGEN. 
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GROUP  12  DIFFUSION  FACTOR  DATA  (CALLED  FROM  INPUT) 

***»  SKIP  THIS  GROUP  FOR  KR(7)»1  OR  3  OR  FOR  KR(12>«1  OR  6  OR  IF  IT 
IS  DESIRFO  TO  USE  THR  MOLECULAR  WEIGHT  APPROXIMATION  FOR 
DIFFUSION  FACTORS  (SFF.  FIELDS  2  AND  3  OF  CARO  1  OF  GROUP  ID. 
ALWAYS  SKIP  FOR  KR<7)«1  OR  3.  **** 


CARO  I.  FORMAT (13)  *****  USED  ONLY  FOR  KR(12)»0»  2.  S  OR  7  AND  THEN  ONLY  IF 

IT  IS  DESIRED  TO  READ  IN  DIFFUSION  FACTOR  DATA  FOR 
ONE  OR  MORE  SPECIES  ***** 

FIELD  1  (COLUMNS  1-3*  B .GHT- JUSTIFIED)  NFF 

NUMHFR  OF  MOLFC'LFS  FOR  WHICH  DIFFUSION  FACTOR  DATA  ARF  TO  0E  READ 
(SEF  FIELDS  2  AND  3  OF  CARD  l  OF  GROUP  11). 


CAPOS  2*  . .  AS  REQUIRED  (DIFFUSION  FACTOR  DATA  REQUESTED  BY  CARD  1  OF 

THTS  GROUP  ARE  FNTFREO  HERE  4  TO  A  CARD)  FORMAT  (4(2A4.E1?«4)  > 

*****  USFO  ONLY  FOR  KR(12)*0*  2*  5  OR  7  AND  THEN  ONLY  IF  THE  CON¬ 
DITIONS  OF  CARD  1  OF  THIS  GROUP  ARE  MET  ***** 

FTFLDC  1,  3*  S.  ANO  7  (COLUMNS  1-ft,  21-28*  *1-48*  AND  61-68,  RESPECTIVELY) 

NFIA(J)  AND  NFIH(J)  IN  EACH  FIELD 

NAMF  OF  MOLECULE  AS  IT  APPEARS  TN  COLUMNS  73-80  ON  FIRST  CARD  OF  3-CARD 
THFWMOOYNAMIC  DATA  SET  FOR  THE  MOLECULE  (SEE  GROUP  13.  CARDS  1.  4,  7.  .) 


FIFLOS  2*  4.  6,  AND  8  (COLUMNS  9-20.  29-40.  49-60.  AND  69-80  RESPECTIVELY) 
FF (N ( J)  IN  FACH  FIFLO 

A  SFT  OF  FF (J)  ARE  INCLUDED  IN  THE  PROGRAM.  IF  ANY  OF  THESE  ARE  TO  BE 
CHANGFO.  THE  NEW  VALUES  FOR  EACH  OF  THE  SPECIES  NAMED  IN  FIELDS  1.3.5 
ETC.  ARE  ENTERED  HEhF  UNOER  THE  VARIABLE  NAME  FFIN(J).  THEY  ARE  THEN 
SORTED  BY  SPECIES  NAME  AND  ENTFRED  INTO  THE  PROPER  SLOTS  IN  THE  FF(J) 
ARRAY.  THESE  DIFFUSION  FACTORS  ARE  REFERENCED  TO  OXYGEN  (02)  OR  OTHER 
reffwence  species  INDICATED  IN  GROUP  11.  TO  OBTAIN  accurate  viscosity 
CALCULATIONS  USE 

FF(J)«(STGMA(J)*WTM(J)**.25*EF'0VRK ( J)**. 0795) /(SIGMA (REF) »WTM (REF) 
**.25>»EP0VRK  (REF)  *<♦.  0795) 
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OR0UP  13  THFPMMCHFMTrAt  DAT A  (CALLED  FROM  INPUT) 

*****  SKIP  This  ppf)lip  FOP  KR(l?)=l  OR  f>  OR  KRC7>*1  OR  3  **** 


TMFRF  ARF  ThRFF  CAROS  FOP  EACH  MOLECULAR*  ATOMIC*  CONDENSED*  OR  IONIC 
SPFCTFS.  ,  A  TOTAL  OF  70  SPECIES  OF  ALL  TYPES  ARE  ALLOWED*  THE  NUMHER 
np  allowable  conofnsfo-phase  materials  WHICH  CAN  BE  simultaneously 

RPFSFNT  TN  AMY  SOLUTION  .IS.  4.  ANY.  NUMBER  OF  CONDENSED  PHASE  SPECIES 
CAN  PF  INCLUDED  IN  THE  7 HERMQCHEM ICAL  DATA  DECK.  (NOTE.**  CONDENSED 
RPFCIFS  ARF  RFOUIREO  IN  SUREACF  EQUILIBRIUM  CALCULATIONS  FOR  CONSID¬ 
ERATION  AS  CANDIDATE  SURFACE  MATERIALS  BUT  ARE  NOT  PRESENTLY  CONSID¬ 
ERED  AS  CANDIDATE  SPECIES  WI,THIN  THE  BOUNDARY  LAYER).  A  BLANK  CARD 
AFTER  THE  LAST  SET  CONCLUDES  THE  THERMODYNAMIC  DATA.  THE  ARRANGEMENT 
OF  These  CARO  seis  is  of  CONSEQUENCE  in  so  far  as  it  determines  the 
BASE  SPECIES  UPON  WHJCH  MASS  BALANCES  ARE  PERFORMED. .  THE  FIRST  INDE¬ 
PENDENT  SFT  OF  BASE  SPECIES  BEING  SELECTED.  SINGULAR  MATRICES  CAN  RE- 
SUI  T  FROM  CERTAIN  SETS  OF  THEORETICALLY  ACCEPTABLE  BASE  SPECIES  DUE 
To  POUNO-OFF  FRRORS.  FURTHERMORE.  HASS  BALANCES*  ETC.  FOR  THE  (N5P)TH 
HASP  spFCTFS  (SEF  CAPO  1  OF  GROUP  2)  IS  OBTAINED  BY  DIFFERENCE. 
THFRFFORF*  Thp  ELEMENT  REPPFSENTFD  BY  THIS  BASE  SPECIES  SHOULD  BE 
PRFSFNT  JN  APPRECIABLE  QUANTITIES  THROUGHOUT  THE  BOUNDARY  LAYER. 

FOP  EXAMPLE*  FOP  ABLATION  IN  AIR*  MOLECULAR  NITROGEN  IS  A  GOOD  CHOICE 
FOP  THE  (NSR)IN  haSE  SPECIES.  FINALLY*  THF  ORDER  OF  THE  BASF.  SPECIES 
OFTFWMINES  Thk  REACTANTS  FOR  KINETICS  PROBLEMS  (SEE  GROUP  14.  CARD  3) 
EXCEPT  FOP  THESE  CONSIDERATIONS*  ATOMIC*  MOLFCULAR*  AND  CONDENSED 
SPFCrFS  Cam  rf;  ARRANGED  IN  ANY  ORDER,  WHEN  IONIZED  FLOWS  ARE  CON¬ 
SIDERED*  THF  ATOMIC*  MOLECULAR  AND  CUNDENSED  SPECIES  DATA  MUST 
APPEAR  FIRST  ANO  RF  FOLLOWED  BY*  FIRST*  ELECTRON  SPFCIES  DATA*  AND 
THEN  THE  IONIC  SPFCIFS  DATA  (WHICH  CAN  BE  IN  ANY  .ORDER) •  THE  DATA 
format  ACCEPTED  BY  The  PROGRAM  (DESCRIBED  BELOW)  IS  AS  GENERATED  BY 
THE  AEROTHFPM  TCDAlA  PROGRAM  AND  IS  THE  SAME  AS  THAT  USED  IN  NAVWEPS 
RFPORT  7043.  THFPMOCHEMICAL  DATA  DECKS  HAVE  BEEN  GENERATED  FOR  ABOUT 
Aon  SOECTFS,  haSFO  MOSTLY  ON  CURVE  FITS  OF  JAMAF  DATA. 


CARDS  1.  4*  7 . .  FOR  FACH  MOLECULE  FORMAT ( 7 (F3. 0 . 1 3) *30X *?A4) 

*****  ijSFD  ONLY  FOP  KR()2>=0.  2*  5  OR  7  ***** 

FTELOS  1.  3*  S,  ...»  ONfc  FOR  EACH  ELEMENT  IN  MOLECULE  (COLUMNS  1-3*  7-9. 
TT-TS*  ...)*  ALPT(N)  IN  EACH  FIELD 

NUMRFB  of  ATOMS  (OF  ATOMIC  NUMBFR  GIVEN  IN  SUBSEQUENT  FIELD)  IN  A 
MOLFCULF  OF  THIS  SPtClES.  IF  F IELU  ONE  IS  ZERO  THIS  CARD  IS  PRESUMED 
TO  BE  THF  END  OF  THE  THFRMODYNAM IC  DATA. 

FIELDS  ?.  4.  6.  ...»  ONF  FOR  EACH  ELEMENT  IN  MOLECULE  (COLUMNS  4-6* 
10-1?.  IA-1B*  ...)»  JAT(N)  IN  EACH  FIELD 

ATOMIC  NUMBERS  OF  ELFMFWTS  IN  MOLECULES  (LISTED  IN  ASCENOING  SEQUENCE). 

1  AST  FIEtn  (COLUMNS  73-RO) 

MOLECULAR  DESIGNATION  (e.g.,  SI02)  FOR  OUTPUT  AND  AS  IDENTIFIER  FOR 
DIFFUSION  FACTOR  DATA. 
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?«  S»  R*  ...»  ONE  TOW  EACH  MOLECULE  FORMAT (6£9«6.6X*E&*0*I l> 

»••••  JlSfO  OMLr  I'JP  KR(12J»0»  2*  5  OK  7  •***• 

field  \  (columns  i-vj,  raui 

M€aT  or  FORMATION  OF  MOt.FCUi.t'  at  298  l)E6  K  FROM  JANAF  RASE  STATE 
(ELUENTS  IN  MOST  NATURAL  FORM  AT  295  0£Q.  KS»  CAL/MOLF. 

F/ELDS  2-6  (COLUMNS  JO-18*  19-27*  2B-36#  37-4S*  AND  46-54 >*  CM(J*1)» 
RCU*ll«RO(J«U.RE(J»t).  RF(J.l) 

CONSTANTS  APPROPRIATE  To  LONER  TEMPERATURE  RANGE  OF  THERMODYNAMIC  DATA, 
TAKING  F2,  F3«  ....  AS  FIELDS  2.  3.  E(C.*  THE  CURVE  FITS  ARE  AS  FOLLOWS 
WITH  T  IN  OFG  K,  M  (N  CaL/MOLE.  ANO  S  IN  CAL/MOLE  DEG  *. 


MEAT  CAPACITY,  CH*E 3»E4*T ♦E5/Y**2 

FNTMAI  PV.  M-M?gM*r?*F3»(T-3ftOOI ♦0.5»E4»(T**2-3000**2I 

-rs*(i/r-i/3ooo) 

ENTROPY.  SsE6*ft»LN( T/lOOOl ♦E4»(T-3000)-O.S*rs«(I/T»A2-l/3000«*2l 
FfPLO  7  (COLUMNS  M-66).  TU(J*1> 

UPPFw  I  IMIT  Of  I  oner  TEMPERATURE  RANGE  IN  OCG  K.  (FOR  CONOCNSED-PHASC 
MATFWIALS  which  MELf,  ir  is  APPROPRIATE  to  USE  MELT  TEMPERATURES!. 

FIELD  *  (COLUMN  67).  «PH* (|) 

1  SIGNIFIES  GASEOUS  species 

?  SIGNIFIES  SOI  10  SPECIES 

1  SIGN  IE  IF'.*  LIOUIO  SPECIES 


CAROS  3*  A*  9.  ONt  FOR  EACH  MOLECULE  FORMAT (6E9.6.6X *E6.0» I l > 

•••••  USEO  ONLY  F OP  KRC12I-0*  2*  5  OR  7  •*••• 

EIELOS  1 -A  (COLUMNS  1-67) 

SAME  AS  CATOS  ?.  S.  A.  ....  EXCEPT  USE  CONSTANTS  E OR  U*»**CR  TEMPERATURE 
RANGE  ANO  riELO  7  is  THE  FAlt  TEMPERATURE  OF  THIS  SPECIES  AS  A  SURFACE. 


LAST  CAPr>  ....  AS  MENTIONED  PREVIOUSLY,  A  BLANK  CARO  iS  USED  TO  SIGNIFY  THE 
CMO  OF  TMFPHUCMf MICAL  OATA 


a 


REACTIONS  nr  The  SOwrAcr  MATERIALS  with  ADJACENT  boundary  layer  gases 
can  *E  WTNtT  ICALt.  Y  CONTROLLED  ACCORDING  TO  AN  ARRHENIUS  TYPE  RELATION. 

row  example,  in  the  rf act  ion 


C*  ♦  l/?  0? 

the  mass  fih*  Rpt  at  ton  is 


-  PKF*«3qp(BJUt/(1.9869*T))*  ^pj2  - 


WHERE  ■<.  «  CARRON  MASS  FLUX 

S»  CARBON  MOLECULAR  WEIGHT 
«  PRE-EXPONENT  I AL  FACTOR 

EAK  *  ACT  I V» T I  ON  ENERGY 

T  s  TEMPERATUPE 

o  s  PARTIAL  PRESSURE  OF  THE  SUBSCRIPTED  SPECIES 

A  *  LUUILIHRIUM  CONSlANl 

EXK  a  REACTION  ORDER 

thESF  constants  anu  f aCTUnS  ARE  INPUT  ON  ImE  CAROS  0ESCRIBE0  BELOW. 
FURTHER  DISCUSSION  OF  KINETIC  MODELS  FOR  ABLATION  CAN  BE  FOUND  IN 
BEFFBfNCF  7.  FOR  FXAMPLE- 


CARO  |.  FORMAT (IT) 

FirtO  I  (COLUMNS  1-3. RIGHT  JUSTIFIED).  MT 

NUMHFP  OF  KIHFT I  CALI  Y  CONTROLLED  REACTIONS  TO  BE  CONSIDERED.  IF  TWO 
PROBLEMS  ARE  STackF'i  moETMER  SEPARATED  BY  A  COMMA  ISEE  CARO  l  OF  LAST 
GROUP)  ANO  IF  THF  FIRS)  IS  A  KINETICS  PROBLEM  AND  THE  SECONO  IS  TO  BE 
FOUIl.THPfUM,  Tmfn  FOR  Trf  SECONO,  KINETICS  MUSI  BE  TURNED  CFF  USING 
<R((^)»S.fe  OR  7  ANO  Mf*n. 


CAPOS  P.S.B....  ONF  for  FACh  KINFIICALLY  CONTROLLED  REACTION.  FORMAT (8E 1 0.4) 
FIFLO  |  (COLUMNS  1-10).  FKF(N) 

PRF-FXPOMENTIAL  FACTOR  FOR  SURFACE  mass  BALANCES  IN  LB-MOLES  OF  REACTANT 
»fR  rT»»?  PfR  SECOND. 
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EIELO  ?  (COLUMNS  11-20).  EAK  (N) 

activation  energy  fop  thf  forward  reaction  in  calories  per  gram-mole 

FI FLO  1  (COLUMNS  ?l-3fl>»  EXK(N> 

REACTION  EXPONENT;  THE  DRIVING  POTENTIAL  AS  OBTAINED  from  The  REACTION 
STOICHIOMETRY  IS  RAISED  TO  THIS  PO«ER  IN  EVALUATING  THF  REACTION  RATE-. 
FXK  *  1,0  IS  RFCOMMFNOEO. 

CAROS  3,6,9. ONF  FOR  r'ACn  KINETKALLY  CONTROLLED  REACTION*  FORMAT (8E 1 0.*) 


FIFLOS  1*2*3,...,  ONE  FOR  EACH  BASF  SPECIES  (COLUMNS  1-10*11-20*...)* 
RMU (K.N) 

STOTCHIOMETRTC  COFFFTClFNTS  ON  REACTANTS.  IN  THE  PHESFNT  FORMULATION 
ONLY  HAS?  SPFCIFS  MAY  «F  USED  AS  REACTANTS.  THUS  SOME  CARE  MUST  BE 
USED  IN  FSTAHLISC'NO  IMF  ORDER  OF  GROUP  13. 


CARDS  4.7*10...,  ONF  FOP  FaCH  KINFTICALLY  CONTROLLFO  REACTION. 
FORMAT (BE) 0.4) 


FIFLOS  1,?,3*...«  ONF  FOR  EACH  BASE  SPECIES  (COLUMNS  1-10*11-20*...)* 

HMij  (K.N) 

STOTCHIOMETRIC  COEFFICIENTS  ON  THE  PRODUCTS.  OR  ON  THEIR  EQUILIBRIUM 
BASF  SPECIES  EQUIVALENTS  IF  THEY  ARE  NOT  BASE  SPECIES,  FOR  EXAMPLE  IF 
THE  RASE  SPFCIFS  A»E  CO,  H20,  H?,  AND  C»  FOR  A  SYSTEM  WHERE  C»  IS  THE 
ONLY  ?SOI  A TEH  (NONE Oil  I L I BW I OH)  SPECIES,  A  REACTION  WRITTEN  AS 


H2  ♦  2C*  »  C2M2 
could  eouivalently  BE  WRITTEN 

H2  ♦  ?C<*  »  ?C0  ♦  3H?  -  2M20 

ANO  THIS  IS  THE  MANNER  IN  WHICH  THE  PRODUCT  COEEEICIENTS  WOULD  BE  INPUT. 
THIS  EQUIVALENT  REPRESENTATION  CAN  NOT  BE  USED  FOR  REACTANTS. 
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GROUP  15  STREAMVISE  DISTRIBUTIONS  F OR  EOOC  CONDITIONS  (CALLED  FROM  REFCCN) 


CARO  SET  !•  FORMAT (»C10.4>  ••••♦  USCO  ONLY  FOR  HR(S)«5  ••••• 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20)*  ETC.*  3  TO  A  CARO* 
OSIP (L> »  L*I*NS  (SEE  CARO  A  OF  CROUP  3) 

DECREASE  IN  EOCE  ENTROPY  FROM  PREVIOUS  STATION  TO  CURRENT  STATION* 
CAL/CM  DEC  K  (THE  STAGNATION  POINT  ENTROPY  IS  CQHPUTEO  BY  THE  PROGRAM. 
OSIP  IS  USCO  TO  DECREMENT  THE  ENTROPY  AT  OONNSVREAM  STATIONS  TO  TAKE 
INTO  ACCOUNT  SHOCK  CURVaTuHC.  OSIR(l>  SHOULD  tH  SET  EQUAL  TO  ZERO.) 


CARO  2*  FORMAT  (12*E3.5*7E1«.S)  •••••  USCO  ONLY  FOR  KR(5)  •  2*3  OR 


FIELD  1-S 

(COLUMN  1-2.  3-10*  11-20*  21-30* 
NINF*  PINF 

31-40) 

NEN*  UlNF . 

RHOINF. 

N2N 

number  of  Entropy  or  shock  layer 

POINTS 

(MAXIMUM  OF 

20) 

•♦UINF 

FREE  STREAM  VELOCITY.  FT/SEC 

•♦RHOlNF 

FREE  STREAM  DENSITY,  LB/F?3 

• 

♦HINF 

FREE  STREAM  ENTHALPY.  8TU'LB 

♦PINF 

STATIC  PRESSURE.  ATMOSPHERES 

1 

•  ENTRY  REQUIRED  IF  FREE  STREAM  STREAM  FUNCTION  POSITION  GIVEN 

♦  ENTRY  REQUIRED  IF  ENTROPY  u*T A  GIVEN  IN  TERMS  OF  SHOCK  ANGLE 

(SEE  CARO  SET  3  A NO  A) 


CARO  SET  3.  FORMAT  ( A 1 ,£9.A, 7E10.*/8C19.*>  •••••  USED  ONLY  IF  KR(5)  ■ 

2*3  OR  A  ANO  NCN  >  0 

rIELO  l  (COLUMN  1)  IREO* 

ALPMAbtriC  CHARACTER  DESCRIPTIVE  Of  OATA  IN  SUBSEQUENT  FIELOSl 

1  FREE  STREAM  STREAM  FVNCT10N  POSITION  IN  INCHES  (NORMAL  TO 

CENTC^i INC ) 

F  FREE  STREAM  STREAM  FUNCTION  POSITION  IN  FEET  (NORMAL  TO 

CENTE«LIM£> 

tfL.iNK  STREAM  FUNCTION  VALUE  IN  li/SCC/RAO  F i»  AAISYMHCTRIC 
BOOltS  OR  L0/SEC/FT  FC^  PLANFR  BODIES 
F!ELOS  2.3,  ...  NCN^l  (COLONS  2-13,  11-20.  21*30  E1C.  8  TO  A  CARO) 

SF ( I ) »  I-i.NEN 

VHCRE  THE  SF  ARE  AS  DESCRIBED  ABOVE 
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CARO  SET  4,  FORMAT  (At ,  E9,4.7E10.4/Rei0.4)  •••••  USEO  ONLY  IF 

*R(5)  »2.3  o»  * 

field  i  (column  n  ined 

ALPHABETIC  CHARACTER  DESCRIPTIVE  OF  DATA  IN  SUBSCOUENT  FIELDS* 

»  SHOCK  ANGLE*  IN  DEGREES 

R  SHOCK  ANGLE*  IN  RADIANS 

BLANK  ENTROPY  <8TU/L8  OfC  R>  RELATIVE  TO  CENTERLINE  VALUE 
•  THE  shock  A  HOLE  IS  DEFINED  RELATIVE  TO  THE  CENTERLP«£. 


FIELDS  ?.T.  ...  NFn* l  (COtUMNS  2-10.  11-20.  21-30.  ETC  8  TO  A  CAROO 
CSII1.  I-l.NEN 

WHERE  The  CS  are  AS  OCSCRIBEO  AMOVE.  CORRESPONDING  TO  STREAM  FUNCTION 
OATa  Of  CARD  SET  1.  IF  MEN  ENTERED  AS  ZERO  ON  C/.RD  2.  NEN  SET  TO 
NUMHER  OF  STATIONS  AND  STREAM  FUNCTIONS  CORRESPOND  TO  ROKAP  VALUES  OF 
CARD  SET  2  Of  GROUP  S. 


CARO  SET  S.  FORMAT  (HE1Q.4)  •*•••  USED  ONLY  IF  KRCS)  «  4 
FIELDS  1.2,  ...  NFN 

i’OTai  ENTHALPY.  hTU/LH.  RELATIVE  TO  CENTERLINE  VALUE  CORRESPONDING 
T(.  STREAM  FUNCTION  OaTA  OF  CARO  SET  3. 


CARD  6.  FORMAT (12)  *•#*«  USED  ONLY  IF  CARO  SET  1  OR  2  IS  US39  ••**• 

FIFLD  I  (COLUMNS  1-2,  RIGHT-JUSTIFIED) .  IOSIP 

TTFM  VHFN  OATA  AMOVE  (CARO  SET  I  TO  5)  IS  TO  8E  UPOATEO  WHERE  ITEM  IS 
INDEX  ON  TIME  (OR  SOACASF )  USE  MLANK  CARO  IF  DATA  IS  TO  REMAIN  UNCHANGED 
FOR  ALl-  REMAINING  TIRES  OR  IF  HO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CAPO  SET  7.  FORhaT (ME  10. A) 

FIFLO  I  (COLUMNS  )-10>,  FIELO  2  (COLUMNS  11-28).  ETC.,  8  TO  A  CARO. 
PRML>.  L-l.HS  (SEE  CARD  OF  GROUP  3) 

RATfO  Of'  LOCAL  STATIC  To  STAGNATION  PRESSURE.  IN  AOOITION  TO  OCFINING 
THE  LOCAL  PRESSURE ,  THIS  OATa  IS  USED  TO  FORM  THE  LOCAL  VELOCITY  GRAD¬ 
IENT  «r  The  stagnation  point  arc  other  boot  stations,  due  to  The  SENSI¬ 
TIVITY  OF  THE  program  TO  THE  VELOCITY  GRADIENT  in  The  stagnation  region, 
two  options  have  keen  incorporated  to  allow  a  smoother  velocity  gradient 
distribution  than  is  ty«mcauy  nniAiNto  by  reading  numbers  from  a  set 
or  curvts.  for  f x ample •  the  various  options  are  controlled  by  the 
entries  in  this  ppissurf  table  ano  tml  effective  nose  padius  entry 

(GROUP  S.  CARD  I.  FIELO  2> . 
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1)  PHFI!)  IS  READ  IN  8UT  RNOSE  IS  NUT 

THf  INPUT  PRFS5UPES  ARE  CURVE  FITTED  AND  PRESSURE  AND  VELOCITY 
GRADIENTS  AWE  EVALUATED  DIRECTLY  PROM  THE  RESULTING  CURVE. 

?>  PRE ( 1 )  ANT  RNOSE  ROTH  READ  IN. 

stagnation  POINT  VELOCITY  gradient  EVALUATED  FROM 

dues  a  1 ./»N0SE*SaRT(2.*PE/RH0E*32. 174*211*.) 

1)  PRE 1 1 )  NOT  RhAU  IN.  AND  PRE  (  >  NOT  READ  IN  FOR  AN  ARBITRARY 

Ni'MREP  OE  STATIONS* 

in  this  instance  he  velocity  gradient  is  assumfo  to  be  linear 

and  a  NEWTONIAN  PRESSURE  OISIRlHUllON  FOR  SHALL  S/R  IS  ASSUMED 
at  those  stations  for  which  no  pressure  is  input,  first,  an 
effective  NOSE  RADIUS,  RNOSF .  IS  COMPUTED  FROM  THE  FiRST  NONZERO 
PRESSURE  entry  from  the  relation 

RNOSE  *  S(L>/SQRT<1-PRE(L> > 

THE  STAGNATION  POINT  VELOCITY  GRADIENT  IS  THEN  FOUND  AS  IN 
OPTION  (?)  AHOVE.  PRESSURE.  FOR  STATION  LL  LESS  THAN  L  IS  FOUND 
FROM 

PRE(il)  «  1,  -  (S  (LI.  T  /RNOSE  I  **? 


CARO  8.  FORMAT (T?)  «***»  DSf)  ONLY  IF  CARO  SET  3  IS  USEO  •***♦ 

FIELD  1  (COLUMNS  1-?*  R I  oh  f- JUS  T IF  I  ED  > ,  IPRE 

ITEM  WHEN  RRE  IS  TO  u-  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE) 
USE  01  ANK  CARD  f F  FRF  IS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  MO  MURE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SFT  9.  FORMAT (RF! 0.4) 

FIELD  )  (COLUMNS  I-lO),  FIELD  ?  (COLUMNS  11-20).  ETC.*  8  TO  A  CARD* 
'(AOR(L).  L*I*NS  (SEE  CARD  3  OF  GROUP  3) 

RATIO  OE  LOCAL  To  STAGNATION  POINT  INCIDENT  RADIATION.  THIS  INFORMATION 
TS  USFO  ONLY  FOP  KR(9)  OR  KR9  OF  4.  INPUT  BLANKS  INTO  THIS  FIELD  FOR 
OTHFR  TYPES  OF  PROHIFMS. 


CARO  10,  FORMAT (I?) 

FIFLO  1  (COLUMNS  1-2,  RIGHT-JUSTIFIED) v  TRaI) 

ITEM  WHEN  RaOR  IS  To  BE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE) 
USF  MI.ANK  CARO  IF  RADR  TS  TO  REMAIN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
IF  NO  MORF  TIMES  ARK  TO  HF!  CONSIOFRED. 
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GROUP  16  STPEAMWJSE  DISTRIBUTIONS  FOP  INPUT  WAI.L  CONDITIONS 
(CALLED  FRO«  RFFCON) 


CARn  SET  i,  FORMAT (BF16. 4)  *«*  USED  ONLY  FOR  KR(]1)«I  AND  KR(9>-0»1»  OR  2  ** 

FIELD  1  (COLUMNS  1-10)*  FIELD  2  (COLUMNS  11-20) ♦  ETC.,  8  TO  A  CARD* 

MW  (L  •  1 )  »  1*1, NS  (SFE  CAPO  3  OF  GROUP  3) 

ENTHALPY  OF  The  gas  at  the  wall,  HTU/LR 


CAPO  2,  FORMAT (I?)  *****  USED  ONLY  TF  CARD  SET  1  IS  USED  ***** 

FIELD  1  (COLUMNS  1-2,  RIGHT-JUSTIFIED),  IHW 

ITEM  WHEN  HW  IS  TO  HE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE). 
USF.  BLANK  CARP  IF  HW  is  to  remain  unchanged  for  ALL  REMAINING  TIMES  OR 
TF  NO  MORE  TIMES  APE  TO  RF  CONSIDERED. 


3.  FORMAT  (BE  1 0.4)  *****  USED  ONLY  IF  KRU1>«0  AND  KR(9)*0,1«  OR  2, 

IF  KR (9) *3  OR  IF  ANY  OF  THE  KR9-2  OR  3  **** 

1  (COLUMNS  1-10),  FIELO  ?  (COLUMNS  11-20),  ETC.,  8  TO  A  CARO, 
TW(L.l).  L=1,NS  (SEE  CARD  3  OE  GROUP  3) 

TEMPERATURE,  DEG  R 


FORMAT ( T?)  *****  USED  ONLY  TF  CARO  SET  3  IS  USED  ***** 

1  (COLUMNS  |-2,  RIGHT-JUSTIFIED) ,  I fW 

WHEN  Tw  IS  TO  bE  UPDATED  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUBCASE). 
USE  BLANK  CARD  (f  TW  (S  TO  RFMATN  UNCHANGED  FOR  ALL  REMAINING  TIMES  OR 
TE  NO  MORE  TIMES  ARE  TO  BE  CONSIDERED. 


CARO  SET  S,  FORMAT (PE10, 4)  *****  USED  ONLY  FOR  KR(9)«0  AND  KR(1!)»0  OR  1  *** 

FIELD  1  (COLUMNS  1-10),  FIELD  2  (COLUMNS  11-20),  ETC.,  8  TO  A  CARO, 

EW (L , 1 ) ,  1*1, NS  (SEE  CARO  3  OE  GROUP  3) 

WALL  STREAM-FUNCTION  (NEGATIVE  FOR  MASS  ADDITION) 


CARO  SET 

»  FIELD 

WALL 

CARO  4. 
FTFLO 
ITEM 
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CARD  *.  FORMAT (I?)  *****  MSFO  ONLY  IF  CARO  SET 

Fmn  i  (columns.  1-2,  right-justified),  ifw 

ITFM  «HFN  Fw  is  in  BF  UPDATED  WHERE  ITEM  IS 

use  hi  an*  card  if  fw  is  to  remain  unchanged 

IF  NO  MORF  TTMFS  ARE  TO  HF  CONSIDERED. 


5  IS  USED  ***** 


INDEX  ON  TIME  (OR  SUBCASE) . 
FOR  AIL  REMAINING  TIMES  OR 


CARD  SFT  7.  FORMAT (flFl 0.4)  *****  USFQ  ONLY  FOR  KR(9>»1  AND  KR(11)*0  OR  1  •** 

FIFI.D  1  (COLUMNS  1-10).  FIELD  2  (COLUMNS  ll-20).  ETC..  8  TO  A  CARD. 
RHOVW(L.l).  L=l. NS  (SEE  CARD  3  OF  GROUP  3) 

TOTAL  MASS  FLUX  aT  THF  WALL  (LB/SEC  FT2  0  DIMENSIONLESS  FOR  KR(8)»0  OR 
1,  PFSPECTTVFLY,  POSfTIVF  FOR  MASS  1NJFCTION) 


CARD  8,  FORMAT (12)  *****  USED  ONLY  IF  CARD  SET  7  IS  USED  ***** 

FIFLD  1  (COLUMNS  1*2.  RIGHT-JUSTIFIED).  IRHOVW 

ITEM  WHFM  RHitVW  [S  TO  Hp  t.'POATFD  WHERE  ITEM  IS  INDEX  ON  TIME  (OR 
SUBCASE).  USE  BLANK  CARO  IF  RHOVW  IS  (0  REMAIN  UNCHANGED  FOR  ALL  RE¬ 
MAINING  TIMES  OR  IF  NO  MOPE  TIMES  ARE  TO  BE  CONSIDERED. 


CARD  SET  9.  FORMA T <BF 1 0.4)  ****  USED  ONLY  FOR  KR(7>»0  OR  2.  KR(9)»0  OR  1. 

ANO  KR ( 1 1 ) *0  OR  1. 

FIFLD  )  (COLUMNS  ]-10>.  FIELD  2  (COLUMNS  11-20).  ETC..  8  TO  A  CARO. 

DO  Ksl.NSPMl  SPW(K.L.l).  L»1.NS  NSPMl*NSP-l  (SEE  CARD  1  OF  GROUP 
?  AND  CARO  3  OF  GROUP  3) 

WALL  ELEMENTAL  MASS  FRACTIONS  IN  THE  SAME  ORDER  THAT  THEY  ARE  SELECTED 
FROM  THF  THERMODYNAMIC  flATA  ISEF  OISCUSSION  UNDER  GROUP  1.3) 


CARO  10,  FORMAT (I?)  *****  USFD  ONLY  IF  CARO  SET  9  IS  USED  ***** 

FIFLD  ]  (COLUMNS  1-2.  RIGHT-JUSTIFIED).  ISPW 

ITEM  WHFN  THE  SPW  ARF  To  BE  UPOATFD  WHERE  ITEM  IS  INDEX  ON  TIME  (OR  SUB- 
CASF).  USF  BLANK  CARD  IF  THE  SPW  ARE  TO  REMAIN  UNCHANGED  FOR  ALL  RE¬ 
MAINING  TJMFS  OR  if  no  MORE  TIMES  are  ro  BE  CONSIDERED. 


CARO  SET  11.  FORMAT (RF10. 4)  ****  USED  ONLY  FOR  KR(7)»0  OR  2  WITH  KR(9)«2  AND 

KR ( 1 1 ) =0 ♦ 1 »  OR  2.  OR  WITH  ANY  OF  THE  KR9*2 

field  1  (COLUMNS  1-10).  FIELD  2  (COLUMNS  11-20).  ETC..  8  TO  A  CARD. 

DO  N=  1  , 3  FI  Ux J ( N.l. .  1 )  .  L=1.NS  (SEE  CARD  3  OF  GROUP  3) 
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WALL  MASS  FLUXES  OF  BOUNDARY  LAYER  EDGE  GAS.  PYROLYSIS  GAS.  AND  CHAR. 

RESPECTIVELY  (SFE  GROUP  11,  CAPOS  2.3 . FIELD  4).  LB/SEC  FT?  OR 

DIMENSIONLESS  FOR  KR(fl)  *  0  OR  1  ■»  RESPECTIVELY.  POSITIVE  FOR  MASS 
INJFCTION  WHEN  KR(fl)  «  0  AND  NEGATIVE  FOR  MASS  INJECTION  WHEN  KR(0)«1. 
READ  IN  ALL  EDGE  GAS  VALUES.  THEN  SI  ART  PYROLYSIS  GAS  VALUES  ON  A  NEW 
CARD  AND  RFAO  ALL  PYROLYSIS  GAS  values.  ETC. 


CARO  1?  FORMAT (I?)  *****  USEO  ONLY  IF  CARD  SET  11  IS  USED  ***** 

FIPLO  l  (COLUMNS  1-?.  RIGHT-JUSTIFIED) .  IFLUXJ 

tt£m  when  the  fluxj  are  to  be  updated  where  item  is  index  on  time  (or 

SUBCASE).  USE  BLANK  CARD  IF  THF  FLUXJ  ARE  TO  REMAIN  UNCHANGED  FOR  ALL 
REMAINING  TIMES  OR  IF  NO  MORE  TIMES  ARE  TO  8F  CONSIDERED. 


GROUPS  17.lfl.19,  ....  (l^NITEM)  SEE  CARD  1  OF  GROUP  3  (CALLED  FROM  REFCON) 


UPDATING  INFORMATION  FOR  STRFAMWISE  DISTRIBUTIONS  OF  EDGE  AND 
WALL  CONDITIONS  FOR  TIMES  . . NITEM-1.  NO  ADDITIONAL  INFOR¬ 

MATION  AFfFW  GROUP  i A  IS  REQUIRED  FOR  NITEM  ~  1  OR  IF  CARDS  2,4,6... . 
OF  GROUPS  15  AND  16  ARE  ALL  BLANK.  DATA  ARE  SUr-'DLIED  FOR  EACH  SET 
AND  ONLY  EACH  S£T  OF  STREAMWISE  INFORMATION  FOR  WHICH  THE  CURRENT 
TTME  HAS  BFEN  nfcSTGNATEO  IN  A  PREVIOUS  GROUP  (E.G.  CONSIDER  TW  AT 
TIME  4  (GROUP  19).  TW  OATA  (I.E..  CARO  SET  3  AND  CARD  4  OF  GROUP  16 
WOULD  BE  REQUIRED  IF  A  4  HAS  APPEARED  IN  CARD  4  OF  GROUP  18.17  OR  16) 
ALL  DATA  REQUIRED  AT  TIME  2  (IF  ANY)  ARE  SUPPLIED.  FIRST  (GROUP  17), 
THFN  FOR  TIME  3  (GROUP  18),  TIME  4  (GROUP  19).  ETC.  FOR  EACH  TIME. 
THESE  DATA  ARE  SUPPLIED  IN  THE  SAME  ORDER  AS  LISTED  UNDER  GROUPS  15 
AND  16.  FORMATS  ARE  THE  SAME  AS  IN  GROUPS  IS  AND  16.  IN  PARTICULAR. 
IT  SHOULD  RF  NOTED  THAT  EACH  ODD-NUMBERED  CARD  MUST  BE  FOLLOWED  BY 
THE  APPROPRIATE  F'*EN-NUMHFREO  CARD  SIGNIFYING  FOR  WHA f  TIME  (IF  ANY) 
HATA  OF  THIS  SAME  TYPE  IS  TO  BE  UPDATED  AGAIN. 


LAST  GROUP  (CALLED  FROM  BLIMP) 


CARD  1  FORMAT (All 

FIFLO  1  (COLUMN  1),  jaST 

THE  PURPOSF  OF  THIS  ENTRY  IS  TD  PERMIT  A  TEST  ON  WHETHER  OR  NOT  A  NEW 
CASF  IS  TO  FOLLOW.  IN  ThF  EVENT  4  CASE  DOES  NOT  CONVERGE  IN  THE  ALLOTTED 
NUMBER  OF  ITERATIONS.  ANY  REMAINING  CARDS  FOR  THAT  CASE  ARE  READ  AND 
THEN  IGNORED  UNTIL  A  COMMA  (.)  OR  A  PERIOD  (.)  IS  ENCOUNTERED  IN 
COLUMN  I.  A  COMMA  SIGNIFIES  ANOTHER  CASE.  WHILE  A  PERIOD 
SIGNIFIES  THAT  THERE  ARE  NO  CASES  TO  FOLLOW. 
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AlN*NN) 

AA 

AAA 

AD 

ABB 

ABER 

A0SVA 

APX 

AC 

ACC 

ACH 

ADUM 

AF 

ALF 

ALP(K) 

ALPH 

ALPHH 

ALPT(N) 

ALSO 


FORTRAN  VARIABLES  LIST 


ERROR  COEFFICIENT  ARRAY  IN  CHEMISTRY  SOLUTION*  N  PERTAINS 
TO  EQUATION  WHE»FAS  NN  PERTAINS  TO  VARIABLE. 

PRODUCT  OF  PRESSURE  TIMES  MOLECULAR  WEJGHT. 

DEFUNCT  VARIABLE.  SET  TO  UNITY. 

LOCALLY  DEFINED  VARIABLE 

LOCALLY  DEFINED  VARIABLE 

ABSOLUTE  VALUE  OF  RATIO  OF  A  MASS  BALANCE  ERROR  TO  LARGEST 
TERM  IN  THAT  MASS  BALANCE. 

ABSOLUTE  VALUE  OF  CONTRIBUTION  Or  A  SPCIES  To  A  MASS 
BALANCE. 

ABSOLUTE  VALUE  OF  LOG  CORRECTION  ON  TEMPERATURE. 

LOCALLY  DEFINED  VARIABLE 
LOCALLY  DEFINED  VARIABLE 
MACH  NUM8FK 


COFFFICIFNT  tN  SURFACE  KINETIC 
CONSIDERED  UNDER  <R<9>  *  5  OR 

LOCALLY  OEEINEU  VARIABLE 


LATION  FOR  MATERIAL  BEING 
EE  INPUT  INSTRUCTIONS). 


DERIVATIVE  OF  LOG  MOLECULAR  WEIGH!  WITH  RESPECT  TO  LOG 
TEMPERATURE  AT  CONSTANT  PRESSURE. 

INPUT  MASS  QUANTITY  OF  ELEMENTS*  EQC25)  OF  NASA  CR-1064. 

NORMALIZING  PARAMETER  FOR  BOUNDARY  LAYER  NORMAL  COORDINATE* 
SFE  EO.  03)  OF  NASA  CR-1062. 

01  *Al.PH  ♦  D2»HALPH  WHERE  Dl  ANU  02  ARE  DEFINED  RY  EQ<88> 

OR  (89)  OF  NASA  CR-10S2. 

NUMBER  OF  ATOMS  OF  AN  ELEMENT  WITH  ATOMIC  NUMBER  JAT(N)  IN 
A  SPECTFS. 

alph**? 


C  EQTCOM 

C  EQTCOM 
C  EQPCOM 
L  SLOPQ 
L  SLOPQ 
L  MATER 

L  MATER 

L  CRECT 
L  SLOPQ 
L  SLOPQ 
L  OUTPUT 
C  CRBCOM 

L  TRMBL 
L  EQUIL 

C  EQTCOM 
C  VARCOM 

C  HISCOM 

L  INPUT 

L  FIRSTG 
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AM<N*NN) 

AMOA 

AMOR 

AMU5 

APE(N.MN) 

AR 

AREA 

ARPH 

ARPHM 

ASTAR 

ASU 

ATA(K) 

ATMK) 

ATC(K) 

atehp 

bin) 

riCRl 

HI 

BUT) 
B?III 
BA1 <N,NN) 


COEFFICIENTS  IN  THE  MATRIX  DEFINED  AS  <8NL>  IN  EQ(ISO)  C  NONCOM 

OE  NASA  CR-10A2. 

ALPHANUMERIC  VARIABLE*  FIRST  OF  TWO  PORTIONS  OF  SPECIES  L  INPUT 
NAME. 

ALPHANUMERIC  VARIABLE*  SECONO  OF  TWO  PORTIONS  OF  SPECIES  L  INPUT 

NAME. 

VNIJ)  *  WTM ( J) / (FF ( J)  *  IWOZ-VN(J)  •  FF(J)  *  WD7) )  SUMMED  L  PROPS 


OVER  ALL  SPECIES  N  *. 

SAVED  APt’AY  A(N.NN)  DURING  IVERSiON.  L  EOUIL 

WFlGHTINv,  FACTOR  IN  LINEARIZING  EOUILIBRIUM  ASPECT  OF  KINET  L  KINET 
TCALLY  CONTROL  LED  MASS  BALANCE 

AREA  PFP  UNIT  MASS  FLOW  DURING  EXPANSION.  L  EQUIL 

ELEMFNTAL  MASS  FRACTION  OF  ATOM.  L  EQUIL 

MAXIMUM  CONTRIBUTION  TO  CALCULATION  OF  AN  ARPH.  L  EQUIL 

A*  USED  IN  TRANSPORT  PROPERTIES  L  PROPS 

FIRST  FOUR  CHARACTERS  OF  ALPHAMERIC  NAME  OF  ASSIGNED  C  CRRCOM 

SURFACE  SPFCIFS 


ALPHANUMERIC  VARIABLE.  FIRST  OF  THREE  PORTIONS  OF  ELEMENT  C  EQPCOM 
NAMF. 

ALPHANUMERIC  VARIABLE.  SECONO  OF  THREE  PORTIONS  OF  ELEMENT  C  EQPCOM 
NAME. 

ALPHANUMFRIC  VARIABLE*  THIRD  OF  THREE  PORTIONS  OF  ELEMENT  C  EQPCOM 


NAME. 

ABSOLUTE  VALUE  OF  DTEMP  L  NONCER 

ERRORS  USFO  WITH  COEFFICIENTS  TO  YIELD  CORRECTIONS  C  EQTCOM 

in  chemistry  iterations,  identical  to  bb*. 

ARRAY  OF  CONSTANTS  DEFINED  IN  BLIMP*  IDENTICAL  TO  BB*.  C  INTCOM 

SAVED  VALUE  OF  B(l)  DURING  INVERSION.  EQUALS  SURFACE  L  EQUIL 

FOUTLrBPIllM  FPWOR  FOR  THAT  OPTION. 

DSQfI-l>/6  C  etacom 

l)SO<I-l)/Y  C  ETACOM 

MATRIX  (BIFF)  DEFINED  BY  FIGURE  1 3)  OF  NASA  CR-1062  C  ETACOM 

PREMULTIPl IEO  BY  INVERSE  OE  (ALFF). 
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HA  ?(*••*> 

HASMOt 

BDUM 

HFTA 

BETAH(L) 

HFTH 

HE 

HIP 

BLOW 

RLOWCH 
HI  OWPG 
BLOEOV 
HS(N) 

HSU 

HULP 

HtHFQW 

HUMP 

HUMP 

cr  k  i 

Cl 

c ? 


MATH!  *  TRl  HH)  OH  |BL*K)  DFFInEO  dr  FIGURE  (3)  OF  NASA  C  ETACOM 

cr  lof?  ppfmui ttplifo  ry  inverse  of  ialhhi  oh  ialkkj. 

Hf.SPFCTlVFir. 

*'UFCULAH  WEIGHT  of  REFEWFNCE  SPtCIFS  IN  DIFFUSION  FACTOR  C  EQTCOM 

calculations 

COEFF ICIENT  TM  SURFACE  KINETIC  RELATION  FOR  MaTFRIaL  BEING  C  C«8C0M 
CONSIDERED  UNDER  KR(9>  *  S  OR  b  (SEE  INPUT  INSTRUCTIONS). 

HETAM(I  )  C  HISCOM 

STRFAMWISF  PRESSURE  GRAOIENT  PARAMETER  DEFINED  BT  E0(53>  C  HISCOM 

OF  NASA  CR-10A?. 

OFRIVATIVF  OF  LOO  MOLECULAR  HEIGHT  WITH  RESPECT  TO  LOG  L  EQUIL 

PRESSURE  AT  CONSTANT  TEMPERATURE. 

t.OCALLT  OFF  INFO  VARIABLE  L  TRMBL 

NOMINAL IV  7EHO.  srr  TO  1.  TO  PREVENT  PREMATURE  CONVERGENCE  L  NONCER 

HI. OWING  PARAMETER  BASED  ON  GAS  MASS  FLUX  GIVEN  Hr  C  OUTCOM 

RHOVW ( IS « 1 ) / (C3  *  CH) . 

CHAR  FlUX  NORMALIZED  Hr  MEAT  TRANSFER  COEFFICIENT  L  OUTPUT 

PrROirSIS  gas  FLUX  NORMALIZED  nr  heat  transfer  coefficient  l  output 

variable  fquivalfnced  to  blocom  for  dumping  purposes  l  dumcom 

SAVFO  ARPAr  OF  H(N)  DURING  INVERSION  L  EQUIL 

SECOND  FOUR  CHARACTERS  OF  ALPHAMERIC  VALUE  OF  ASSIGNED  C  CR8C0M 

SURFACE  Spf.CIFS 

LOG  (BUMP l  L  CRECT 

VARIABLE  FOUIVALFNCEO  to  HUMCOM  FOR  DUMPING  PURPOSES  L  DUMCOM 

OtiNTRIHUT  (ON  TO  DAMPING  FACTOR  EASE  RESULTING  FROM  SIGN  C  8UMC0M 

changes  i*j  critical  errors. 

I0»*4  •  P,  constraints  on  corrections  are  relaxed  for  l  CRECT 

PARTIAL  PRESSING  s  BELOW  THIS  value. 

GRAM  ATOMS  OF  FLFMFNT  K  IN  A  MOLECULE.  L  INPUT 

1.  ♦  07  WHERE  DZ  IS  OEFINEO  Hr  £0(88)  OR  (89)  OF  NASA  C  HISCOM 

CR-IOGP. 

-n*?*OZ)  WHERE  nz  IS  OEEINEO  Hr  E0(88)  OR  (89)  OE  NASA  C  HISCOM 
CR-10G?. 
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CT 

C1M(D 

C 

HISCOH 

0*ML> 

-1/AIPHASTAP  *H£PF  ALPHASTAH  IS 
PAPAMfTEP  DEFINED  HY  f  Q  (44)  OF 

THE 

NASA 

FLUX  NOrtMAUZING 

CP* 1 062. 

C 

HISCOM 

C4 

AFT  A  ♦  1  ♦  l)p  wHFQf  07  is  OEHnEU  bY 
NASA  CP-lOhP. 

FO (Art)  OR  (89)  OF 

C 

HISCOH 

C5 

l./ALPH 

C 

COECOM 

CA 

HE  I A  #  ALPM»«P 

C 

coccom 

C7 

-<U£<U*«?>/( <ALPH**2)«2S03fe.S) 

C 

cofcoh 

Cft 

aldhd/ai.ph 

c 

COECOM 

cs 

HETA*I.*0 7  -  flLPHO/ALPH 

c 

COFCOH 

CIO 

C7*F (?«  f ) 

c 

COECOM 

Cll 

DFFTNFO  In  ICO EFF 

c 

COECOM 

Cl? 

OFF  INFO  I N  ICOt'FF 

c 

COECOM 

cn 

C.7  *  F  ( 1*  I ) 

c 

COECOM 

C  1 4 

(l.*0/)*F  <1,1 )»HF(I.5) 

c 

COECOM 

C15 

PP(I)-1 

c 

COECOM 

C 1  f> 

1  ./PR(I) 

c 

COECOM 

C17 

\  ,/sr< j  ) 

c 

COECOM 

C1R 

CTP*T ( 1 ) 

c 

COECOM 

C1N 

capc  ( i )  /  <  At  ph*sc  (in 

c 

COECOM 

c.?o 

CAPC  (  I  )  /  (  AI.PH*PP  (  I  )  ) 

C 

COECOM 

CPI 

OFF ! NED  (m  FCMFFF 

C 

COCCOM 

CP? 

DFFTNFO  iw  ICOFFF 

c 

COECOM 

CP3 

PEMNFD  In  ICOFFF 

C 

COECOM 

C?4 

'iTFINFO  In  ICDFFF 

C 

COCCOM 

CPS 

DEFINED  In  ICOFFF 

c 

COECOM 

CPA 

WHUE (L) /°M0< I ) 

C 

COECOM 

CPft 

DEFINED  In  ICOFFF 

C 

COCCOM 
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CSI 

DEFINED 

IN 

ICOFFF 

C 

COECOM 

Cl? 

normal i zed 

OIFFOSIVF  hfat  flux 

CALCULATED  in 

ICOEFF 

C 

COECOM 

C43 

OFF  INFO 

IN 

icofff 

C 

COECOM 

C5.3 

phop ( I ) /Pnn< i > 

C 

COECOM 

CS6 

F(?.n/AI  OH 

C 

COECOM 

C73 

n.*nz> 

•  F ( ?« I ) 

c 

COECOM 

C74 

OFF Info 

In 

icofff 

C 

COECOM 

C7S 

OFF  INFO 

IN 

icoeff 

c 

COECOM 

C7ft 

( 1 • *07) 

*  0(1.1) 

c 

COECOM 

C77 

OFF f  NFO 

In 

icofff 

c 

COECOM 

C7A 

off  info 

In 

ICOfcFF 

c 

COECOM 

C79 

OFF  INFO 

In 

icofff 

c 

COECOM 

CAO 

off  INFO 

In 

ICOfcFF 

c 

COECOM 

C«1 

OFF  INFO 

IN¬ 

ICOFFF 

c 

COCCOM 

C«? 

OFF r NFO 

IN 

ICOFFr 

c 

COECOM 

CAT 

OFF  I NFO 

IN 

icofp- 

c 

COECOM 

C«4 

OFF  INFO 

IN 

ICOfFF 

c 

COECOM 

C«S 

OFF  INFO 

IN 

icofff 

c 

COECOM 

CAf. 

OFF  INFO 

IN 

ICOFFF 

c 

COECOM 

r«7 

OFF  INFO 

IN 

icofff 

c 

COECOM 

CAa 

OFF  I NFO 

IN 

icofff 

c 

COECOM 

CAO 

BETA  •  (ALPM  ••?)  •  CPHOJ 

L 

I  ONLY 

CA9 

-C3  •  ALPH 

•  VMUF(L) 

L 

OUTPUT 

CAPC(I) 

PRODUCT 

OF 

DENSITY  AnO  VISCOSITY  NORMAL  I  ZED  BY  EDGE  VALUE. 

c 

PRPCOM 

CASE <N> 

ALPHANUMERIC  NAMF  of  cast . 

C 

INTCOM 

CRAR 

VALUE  of 

THE  VFLOC l I I  MAT!0  Al 

boundary  layer 

NODE  KAPPA. 

c 

INTCOM 
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truiw 

cr 

CP(mS) 

CGP(MS) 

cm 

Cm  A 

Che in) 

CMFLUX 

CHL 

CH(N) 

C! JIW.TK) 

Or  I  (K ) 

C*A(K) 

CK9(K> 

CKIKO 

CKITOC) 

CMHOO 

CM  YOC) 

CKPl  <K) 

C*?P (K ) 

CK?3(M 


COEFFICIENT  IN  SllRFACF  K  tNE  T 1C  RELATION  flit*.  MATERIAL  BEING 
CONSIDERED  UNDER  KR(9)  »  S  OR  b  (SET  INPUT  INSTRUCTIONS) . 

MOMENT!*  TRANSFER  COEFF  I C I  ENT  bl  v£N  «Y  CAPCID/ALPH  • 
VMUF(IS)/CWR«F(3.I> 

TnlAl  ENTHALPY  CORRESPONDING  YU  SF(MS) 

d.-rivatiyf  of  rn(«s)  with  respect  to  eta 

HEAT  VPaNSEER  COEFFICIENT  rtASEO  UN  ENTHALPY  POTENTIAL* 
GIVEN  HY  -YALI  0/<C3* (D( 1 ,NETAI-0( I . I) ) ) 

HEAT-TRANSFER  COEFFICIENT  CALCULATE')  HY  FO  (21)  OE 
REFERENCE  A  FOR  THE  SPECIAL  CASE  OF  EQUAL  DIFFUSION 
COEFFICIENTS 

HE  A (-TRANSFER  COEFFICIENT  CALCULA  TED  FROM  £Q  (21)  OF 
REFERENCE  A 

LESS  THAN  7Ewn  VALUE  IMPLIES  PPESENCE  OF  CHAR  ELEMENTS  IN 
SURFACE  OmFMISTRy 

VAI  or  OF  hFaI-TRaNSFER  COEFFICIENT  CALCULATED  USING 
I  FWTS  NUMHFW  CORRELATION  (EO  or  REFERENCE  A) 

CURVE  FIT  CONSTANTS  FOR  THERMODYNAMIC  DATA  ITHE  QUANTITY 
F?  ♦  m?98  DISCUSSEO  IN  GROUP  12  OF  INPUT  INSTRUCTIONS) 

N* 5  FOR  LOW  ANO  ?  FOR  HIGH  TEMPERATURE  RANGE.  IDENTICAL 
TO  CCHh* 

GRA«  4tOh  OF  FIFnFNT  K  IN  HA.SE  SPECIES  KK. 


CALCULATED  In  ICOFFF 

NORmji  ,7Fn  ELEMENTAL  MASS  FLUX  CALCULATED  IN  ICOEFF 
DFFlNFn  I  ICOEFF 

OF f  INFO  ICOFFF 
OFF  INF  D  IN  ICOEFF 
DtFlPro  In  ICOEFF 

OFFTMFP  t,  IC!>EFF 
Df  TIMED  ICOEFF 
OF f  INFO  In  ICOEFF 
OSO( !-! )  •  ifH^IXMpd  /  o. 


C  CRBCOM 

c  OUTCOM 

C  EOGCOM 
C  EOGCOM 
C  OUTCOM 

L  EELTRU 

L  EELTRU 

L  EQUIL 

L  EELTRU 

C  EQPCOM 

E  EQPCOM 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
C  COECON 
COECON 
COECON 
COECON 
f  ONLY 
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CKP4IIO 


C 7  •  Filiii  *  C^pyi*! 


L  I  ONLY 


-KPS!*!) 


OFTAIf-l>  •  <.um(«m(M 


L  1  ONLY 


CK?M*» 


C7  •  f  | )  «  C*PS|*| 


L  IONLV 


C*K| (K.KK) 


CKKptn.KX > 


OFT  \SFf‘  T«  Jl.OFEF 


OfffNfO  Tn  ICOfff 


C  COiCON 

c  coccon 


cfoik.k*)  defined  in  icoeff 


C  COECON 


Cl  NO* 


C*CHl. 


CNF (N) 


C«IK) 


CNFFIJ) 


I  (II  IN  MIXING  LENGTH  FORMULATION. 

CLAUSFR  MlNbFB  USED  IN  OFF  JN I  NG  Ef>OY  VISCOSITY  IN  TMf 
WAKF  PORTION  OF  THE  HOUNOARY  LAYER. 

NAT  ID  CM (K)  TO  CHI 

a vt wage  of  the  cm* ini 

KlFMFNTAI  HASS  TRANSFER  COEFFICIENTS  RASED  ON  MASS 
FRACTION  POTFnTIAL.  GIVEN  RY  V JKW IK ) / COUM (K) »WA f IK ) )  WHERE 
M'mOO  IS  Inf  SUMMATION  OVEN  FK  OF  (SPI 1  .NFTA.KF)  - 
SP  C  1  •  ?  •  K*  I  )/WTM<KW)»ClJ<A.KK) 

the  FaCTOP  my  WHICH  ah  CORRECTIONS  ARE  OAMPE  '  DURING  CHEM¬ 
ISTRY  TIFPAIIONS. 

the  valof  of  r mf  after  consideration  of  constraints  on  the 
cornf'-tiov  to  hf  applied  to  ime  partial  pressure  of  the  jch 

SPFC  -S. 


C  EPSCOM 
C  '■PSCOM 


L  FELTRU 


L  FELTRU 


L  OUTPUT 


L  CRECT 


L  CRECT 


CMK(N)  Kl.fcMENTAI  “ASS-TRANSFFR  COEFFUltNT  CALCULATED  RY  f0  (16) 

OF  RFFFRFnCE  a 


C  EOTCOM 


COFFQV ( N ) 


CPEFOV(N) 


GLUHAl  SET  UF  COEFFICIENTS  C5.C6.C7.  ETC. 
Gl ORAL  SET  Of  COEFFICIENTS  CK1.CK?.  ETC. 


c  COCCOM 


E  COECON 


covo  thfrw.il  conductivity 

CORF  ropr  HAl.F-AN'-iF  for  Sphfrf-CONE  Shaped  BODIES. 

CONFOV  VARIAMIE  f  <1U I  V  AL  F  NC*  0  f)  COtCON  f  OR  DUMPING  PURPOSES 

CO»AR(N)  CONNECT  !«»|  AfcWAf  ,  COMPOSED  Of  COhHECT  IONS  JN  HIT). 

J»i  1^-  M'rt.  an:,-  SPtT.I.Xt  ,  ;  *J  ,Nt  Ul  ,  K*!»NSPW?. 

CC?PMA  JwE  VAlUE  ''  I  E !  COSAN. 

C°(-J>  SPEC  TF  I  C  mF  *T. 


L  OUTPUT 


C  PRMCOM 


L  JUMCOM 


F  NONC  on 


RUMCOM 


C  EOTCOM 
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CDA 

CPHAR(I) 

Cpr 

CP  (? 

CPT 

C'PTIL 

CRRFOv 
cPHim-i ) 
CRhoi 

CS(MS) 

Csrr  <ms) 
CSP 

C7 

CTP 

CXM 

CYM 

CYSP 

0 

D 

01 

0? 

D?:JFDC 


LOCALLY  DEFINED  VARIABLE  L  MATER 

frozen  SPECIFIC  MEAT  OF  THE  MIXTURE.  C  PRPCOM 

FWO/FN  SPECIFIC  Mr'AT.  IOEMTICAl.  TO  CCPF».  C  EOTCOM 

FPmZFN  SPECIFIC  HEAT  OF  GAS,  IDENTICAL  TO  CCPG*»  C  EQTCOM 

FR07FN  SPFLI  IC  HEAT  OF  GAS.  L  STATE 

PRUPFHTY  11F  Thp  GAS  MIXTURE  WhICH  REDUCES  TU  CPRAR  FOR  C  PRPCOM 

FUUAI  DIFFUSION  COEFFICIENTS,  SEc  E0(?8>  OF  NASA  CR-106?. 

VART  AHt  E  (■  H![V/aLFNCFO  to  CRHCOM  FOR  dump  I  no  PURPOSES  L  DUMCOM 

Cph  *  OF  T  a  !  I  - 1 )  *  U.-(RhOP(I)/RhOII)  )  *  0ErMI-l)/6)  C  PRPCOM 

(PH0F(1>  /  RHO  (II)  *  OETA(I-l)  *  n..->DETA(I-l)  *  RHOP 1 1 )  /  L  I  ONLY 

M?HO (I;  *  6.  » ) 

ENTROPY  CORHt  BOUNDING  TO  SF  (MS>  C  EDGCOM 

ENTROPY  I  NATIVE  WITH  RESPECT  TO  SF(MS)  C  EDUCOM 

FQUIl  IRRIOM  SPECIFIC  HEAT  OF  GAS.  L  EQUIL 

COEFFICIENT  APPEARING  IN  THE  APPROXIMATION  FOR  THERMAL  OIF-  C  PRPCOM 


FUSION  C.OFFF I C  f  FMTS,  SEE  FQ (phi  OF  NASA  CR-1062,  NUMERICAL¬ 
LY  EQUAL  ro  -O.S,  SET  FQUAL  TO  ZERO  WHEN  THERMAL  DIFFUSION 


NFGLFCTEO, 

CT  *  UNIVEW?  GAS  CONSTANT.  C  PRPCOi 
LOCALLY  DEFINED  VARIABLE  L  IONLY 
LOCALLY  DEFINED  VARIABLE  L  IONLY 
LOCALLY  DEFINED  VAR’ABLE  L  IONLY 

cpr  nr  constant  vectors  converted  ro  solution  vectors  l  reray 

ARGUMENT  REPRESENTING  DELTA  eta  L  TAYLOR 
THE  0  SUM  ONE  OF  F0IB9J  IN  NASA  CR-106?.  L  H.ISTXI 
THE  D  SUP  TWO  OF  F0I8R1  IN  NASA  CR-106?.  L  HISTXI 


SFCONO  OF  w I V A  T I VE  OF  UEOGE  WITH  RESPECT  TO  STREAM  FUNCTION,  C  EDGCOM 
SEE  F0(G8)  Of  NASA  CR-106?  (St  I  tQUAL  TO  ZERO  IN  PRESENT 
PROGRAM) . 
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oc.nPCH 

nCAPCKfKI 


oclpi 


ur<  hm 


nrppH 


urof»K  «k  » 


DfPTH 


OCPTk (k) 


OflJd  ) 
UFLTW  (K) 


UFLOW 


UfLST 


'm'R,SI0N  COEFFICIENl  INTRODUCED  IN  APPROXIMATION  »  PROPS 
UNFOilAl  DIFFUSION  coefficients*  NUMERICALLY  foual  to  '  R  s 
‘•1V-4  *  T  *  SOrT  (T )  /  (OMEGA  *  P). 


OEPsm 


OFP(L) 


OFTA(T) 


OHTILH 


DERIVATIVE  OF  CAPC  WITH  RESPECT  TO  H. 

?^kAJIVF  OF  CAPC  WITH  RESPECT  TO  MASS  FRACTION  OF 
r. Lr  Mr. NT  K 

OFHIVATIVF  OF  cl  at  I  WITH  RESPECT  TO  CL  AT  I-i 
DERIVATIVE  OF  cl  AT  J  WITH  RESPECT  TO  PI  AT  I 
DERIVATIVE  OF  CL  at  J  WITH  respect  TO  PIM  at  I-I 


C  PRPCOM 
C  PRPCOM 


*»  i  wiim  KtsFttt  to  CL  AT  I-I  L  TRMBL 

DERIVATIVE  OF  CL  AT  I  WITH  RESPECT  TO  PI  AT  I  L  TRmBl 

DERIVATIVE  OF  CL  at  ;  WITH  RESPECT  to  PIM  at  I-I  L  TRmbl 

*"h  *e**c' ,o  h>  sft  E°u41-  ">  *•»  w  c  prpcom 

Sriv:T,:%0F  *TTH  R£SP£CT  to  mass  fraction  of  ele-  c  prf.com 

4EFT  K,  set  equal  to  zero  in  current  program.  c  F  0 

?DPRE^lpROGPASriL  WlTH  Rt_S^CT  T0  H‘  SEV  £0UAL  T0  Z£*°  IN  C  PRPCOM 

StV<TIc--0F  CPTIL  *ith  RFSP£CT  to  mass  fraction  of  ele-  c  prpcom 

WENT  K.  Sfi  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM.  C  PRPC0M 


(Ot Ta (1 ) ) s*3 


C  ETACOM 


NmON-RA^SONSHER^nON"CUX’  ^LL‘/<K'’  ’NTROOUCEO  DURING  C  FLXCOM 


DFLO.JW  (N)  global  sft  of  low  and  OELJWIK). 


NE^PARisoN* !tepmiJnFU,X’  WALLU’  ^TROOUCED  DURING 
-F^',1  n/A|WpHlHTCKNESS  GIVEN  8Y  r(NETA)'Cfl9WCF(UNETA) 

CONSTANT  TN  CORRFCTION  COEFFICIENTS  ON  EPSAUI  RESULTING 
FROM  LINFar  (CORRECTION  COEFFICIENTS 

DERIVATIVE  OF  ETPSAd)  WITH  RESPECT  TO  NONLINEAR  VARIABLES 

llccn^-fo^r"  v-'ARMBLE  used  in  VARIOUS  SUBROUTINES  BUT  NOT 
fStf,  -(ft  TRANSMITTING  INFORMATION  BETWFfN  SUBROUTINES. 

eta (i  +  i )  -  f  r a  ( i ) 

DFRTVATIVF  OF  HTIL.  with  re  spec  I  10  H. 


E  FLXCOM 
C  FLXCOM 


C  OUTCOM 


C  EPSCOM 


C  £°SCOM 

c  rtMcoM 


C  ETACOM 
C  PRPCOM 
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OMFTI  K  (K ) 

DTV 
DT  VC 
DKPT(MK) 

01  I  (I) 

ulPH 

DI.PK(K) 

01 X  1 
OLX? 

OMijj  ?H 

OMUI.PK  (K) 

0MU3H 

DMU3K<K) 

L1MII4K  (K) 

OPHIKH(K) 

ophtkk <K»KK 

DPI <3+K,2> 

[)°RH 

OPRK(K) 

OOJNL <N> 


OF  R  T  V  A  T I  VF  OF  Hill  WITH  RESPECT  TO  MASS  FRACTION  OF 
element  K. 

ROW  NORMALIZING  FACTOR  IN  GAUSSIAN  ELIMINATION. 

PRODUCT  OF  'DTV  AND  ELEMENT  OF  ROW. 

DFK1VATIVF  OF  LOG  KP  WITH  RESPECT  TO  LOG  TEMPERATURE. 
DERIVATIVE  OF  EL(I)  WITH  RESPECT  TO  NONLINEAR  VARIABLES 
A(3,I>  EVALUATED  AT  THE  WALL. 

A  ( 3  «  K  ♦  ? )  I-  VAL  IIATFD  AT  THE  WALL - 
Al.OG  (XI  (I  )  /  XI  (L-I)  ) 

STORED  (HISTORIC!  VALUE  FOR  DLOGaI  DEFINED  BY  EO(ROi  OF 
NASA  CR-10G2. 


C  PRPCOM 

L  RERAY 
L  RERAY 
C  KINCOM 
C  EPSCOM 
C  NONCOM 
C  NONCOM 
L  HISTXI 
C  HISCOM 


DERIVATIVE  OF  vmiii?  wITH  RESPECT  TO  H.  SET  EQUAL  TO  ZERO  IN  C  PRPCOM 
CURRENT  PROGRAM. 


DERIVATIVE  OF  VMII12  WITH  RESPECT  TO  MASS  FRACTION  OF  ELE-  C  PRPCOM 
MFNT  K.  SET  EOUAl  TO  ZERO  IN  PRESENT  PROGRAM. 

OERIVATIVF  OF  VMU3  WITH  RESPECT  TO  H.  C  PRPCOM 

DERIVATIVE  OF  VMD3  WITH  RESPECT  TO  MASS  FRACTION  OF  C  PRPCOM 

FLEMFNT  K. 

DERIVATIVE  WITH  RESPECT  TO  H  OF  I  HE  COEFFICIENT  MU4  C  PRPCOM 

OFF  INFO  IN  FU(?H>  OF  NASA  CR-1062. 

DERIVATIVE  WITH  RFSPECT  TO  MASS  FRACTION  OF  ELEMENT  K  OF  C  PRPCOM 
1HF  COEFFICIENT  MVJ4  OFFINED  IN  EQI28)  OF  NASA  CR-1062. 


OF  R I  VAT  I VF  OF  PH1K  WITH  RESPECT  TO  H,  SET  EQUAL  TO  ZERO  IN  C  PRPCOM 
CURRENT  PROGRAM. 


DFRrVATlVF  OF  K  TH  PHIK  WITH  RFSPF.CT  TO  MASS  FRACTION  OF  C  PRPCOM 
ELEMENT  KM,  SF  r  FQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

(ARRAY  OF  DERIVATIVES  Or  PI  WITH  RESPECT  TO  PRIMARY  VARI-  C  EPSCOM 
AHLESI/TRFF 

t 

DERIVATIVE  OF  PR  WITH  RESPECT  TO  H,  SET  EQUAL  I G  ZERO  IN  C  PRPCOM 
CURRENT  PROGRAM. 

derivative  o;  pr  with  respect  ro  mass  fraction  of  element  c  prpcom 

K ,  SF T  FOIJAL  TO  7ER0  IN  CURRENT  PROGRAM. 

GLOBAL  SFT  OF  l)ONL  AND  DJNL(K).  E  FLXCOM 
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OO.IRNl  (M) 

DONL  <N> 

DQRH 

IJOWK(K) 

DRHOH 

ORHOI 

ORHOK (K) 

URNLINt 

OSCH 

USCK(K) 

DSFP(L) 

USU  i  I » 

osv 

DTD 

OTEMP 

DTH 
DTHW 
i)TK  (K ) 
DTKW  (K ) 
DTM 


DFRIVATIVf  Of  DIFFUSIVF  HEAT  AND  MASS  FLUXES.  WALLQJ  WITH 
RESPECT  TO  NTh  RFDUCED  NONLINEAR  VARIABLE. 

DFRIVATIVr  OF  UIFFUSIVE  HEAT  FLUX.  WALLQ.  WITH  RESPECT  TO 
N  TH  NONLINEAR  VARIABLE. 

DERIVATIVE  OF  or  WITH  RESPECT  TO  H.  SET  EQUAL  TO  ZERO  IN 
CURRENT  PROGRAM. 

DERIVATIVE  OF  UR  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT 
X .  SFT  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

DERIVATIVE  OF  RHO  WIIH  RESPECT  TO  H. 

DERIVATIVE  OF  VFI.OCI1Y  DFFECT  THICKNESS  WITH  RESPECT  TO 
PHD  »T  I 

DERIVATIVE  OF  RHO  WITH  RESPECT  TO  MASS  FRACTION  OF 
ELEMENT  K. 

REDUCED  NONLINEAR  ERRORS  BEFORE  MATRIX  INVERSION,  CORREC¬ 
TIONS  OF  VARIABLES  IN  REDUCED  NONLINEAR  SET  AFTER  MATRIX 
INVERSION. 

DERIVATIVE  Ob  SC  WITH  RESPECT  TO  H,  SET  EQUAL  TO  ZERO  IN 
CURRENT  PPOGRAM. 

OERIVATTVF  OF  SC  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT 
K,  SFT  EQUAL  TO  ZERO  IN  CURRENT  PROGRAM. 

DECREASE  TN  ENTROPY  FROM  PREVIOUS  STATION  TO  CURRENT  STA¬ 
TION  L  AT  BOUNDARY  LAYER  EDGE  DUE  TO  SHOCK  CURVATURE 
(OSIPU)  =  0  BY  DEFINITION). 

(DETA(T) )**2 

LOCALLY  DFFINFO  VARIABLE 

DOWNWARD  TFMRFRATURE  STEP  USED  IN  SEEKING  SURFrtCE  EQUILIB¬ 
RIUM  SOLUTION. 

PREDICTED  CHANGE  IN  SURFACE  TEMPERATURE  FOR  THE  CURRENT 
TTERATVON  DURING  A  KR<9>  *  6  PROBLEM. 

DFRIVATIVF  OF  T  WITH  RESPECT  TO  H. 

DTH  EVALUATED  AT  THE  WALL. 

DERIVATIVE  OF  T  WITH  RESPECT  TO  MASS  FRACTION  OF  ELEMENT  K 
DTK  EVALUATED  AT  THE  WALL. 

LIMIT  VALUE  OF  DELTA  (l./T)  IN  CHEMISTRY  SOLUTION. 


E  NONCOM 

C  FLXCOM 

C  PRPCOM 

C  PRPCOM 

C  PRPCOM 
L  TRMBL 

C  PRPC01 

C  ERRCOM 

C  PRPCOM 

C  PRPCOM 

C  EDGCOM 

C  ETACOM 
L  MATS1 
L  EQUIL 

L  NONCER 

C  PRPCOM 
C  NONCOM 
C  PRPCOM 
C  NONCOM 
L  CRECT 
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I)TU 

OIIB? 
DUB3 
DUMA 
OURS 
OIIOS  (L) 

OUEDGF 

DUES 

ohm 

l)UM1 

OIIM? 

DUMA 

mm 

OHMS 

OHMS 

0IIM7 

DUMB 

OUMP 

OU7 

OVMl.  (Ml 

OVS 
OY  (J) 
OYT 
07 


UPWARD  TEMPERATURE  STEP  HSFO  IN  SEEKING  SURFACE  EQUILIBRIUM  L  EQUIL 


SOLUTION. 

L  INPUT 

LOCAI  I  Y  TMPl.l  VARIABLES.  IF  NON-ZERO  ASSIGNED  TO  FITMOL*  L  INPUT 
BASMOI ,  SIGMA  AND  FPOVRK,  RESPECTIVELY  L  INPUT 

L  INPUT 

DERIVATIVE  OF  EDGE  VELOCITY  WITH  RESPECT  TO  S  IN  REFCON*  C  TEMCOM 
temporary  STORAGF  AREA  in  other  routines. 

DERIVATIVE  UtoGE  WITH  RESPECT  TO  STREAM  FUNCTION*  SEE  EQ  C  EDGCOM 
(AS)  OF  NASA  CR-106?  (SET  EQUAL  10  ZERO  IN  PRESENT  PROG). 

OERIVATIVF  OF  EDGF  VELOCITY  WITH  RESPECT  TO  STREAMWlSE  C  EDGCOM 


COORDINATE  S. 

I.OCALI  Y  OEFINFO  VARIABLE  (VARIOUS  ROUTINES) 
I  OCALt Y  OFF  INFO  VARIABLE  (VARIOUS  ROUTINES) 
[ OCAII  Y  OKFINFO  VARIABLE  (VARIOUS  ROUTINES) 
LOCAL!  Y  DEFINED  VARIABLE  (VARIOUS  ROUTINES) 
LOCALLY  OFF  INFO  VARIABLE  (VARIOUS  ROUTINES) 
LOCALLY  DEFINED  VARIABLE  (VARIOUS  ROUTINES) 
LOCALLY  DFFINFD  VARIABLE  (VARIOUS  ROUTINES) 
LOCALLY  OFF  1 MED  VARIAHLF  (VARIOUS  ROUTINES) 
LOCALLY  DEFINED  VARIABLE  (VARIOUS  ROUTINES) 


P  *  10**7.  LIMIT  PRFSSURF  IN  CONTROLLING  DAMPING  OF  CHEM-  L  CRECT 
TSTRY  SOLUTION. 

LOCALLY  OLE  INFO  VARIABLE  L  OUTPUT 

DAMPED  NONLINEAR  CORRECTIONS  (GIVEN  BY  EQ(156)  NASA  C  NONCOM 

CR-106?  MULTI°LTFO  BY  EASE). 

VF».  DCITY  DFFEJCT  THICKNESS  OVER  DEL.  C  EPSCOM 

CORRECTION  ON  VAR [ABLE  Y(Ji*  IN  CHEMISTRY  SOLUTION.  C  EQTCOM 

DAMPED  CORRECTION  ON  VARIABLE  V(J>*  IN  CHEMISTRY  SOLUTION.  L  CRECT 
THE  0  SUB  ZERO  OF  EQ(8S)>  IN  NASA  CR-106?.  L  HISTXI 
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l)7KH  <K)  DERIVATIVE  OF  ZK  I TH  RESPECT  TO  H.  C  PRPCOM 

07KK (K.KK)  OeWIVATTVF  OF  K  TH  2K  WITH  KITH  RESPECT  TO  MASS  FRACTION  C  PRPCOM 

OF  FLEMENT  KK. 

t(N)  FRRORS  IN  CHEMISTRY  EQUATIONS  (MASS  BALANCE  ERRORS  FOR  N  C  EQTCOM 

FOUAL  TO  OR  LESS  THAN  IS*.  EQUILIBRIUM  ERRORS  FOR  N  GREATER 
THAN  IS*.  WHERF  TS*  IS  NUMBER  OF  ELEMENTS  INCLUDING  ELEC¬ 
TRON)  . 

EAR  ABSOLUTE  VALUE  OF  EQUILIBRIUM  ERROR  FOR  A  SPECIES  IN  CHEM-  L  MATER 

ISTRY  SOLUTION. 

EAK(MK)  ACTIVATION  ENERGY.  C  KINCOM 

EASE  DAMPING  FACTOR,  APPLIED  UNIFORMLY  TO  ALL  CORRECTIONS.  C  BUMCOM 

EB (K)  MAGNITUDE  OF  LARGEST  CONTRIBUTION  TO  K  TH  MASS  BALANCE.  C  EQTCOM 

EBL(K)  MINIMUM  CONTRIBUTION  ACCEPTED  10  K  TH  MASS  BALANCE.  C  EQTCOM 

=EB/M0**8> 

ECO (N)  RESIDUAL  FRROR  IN  CONDENSED  EQUILIBRIUM  IMPOSED  IN  ChEMIS-  L  MATER 

TRY  SOLUTION  AS  A  CONSEQUENCE  OF  BOUNDARY  LAYER  DAMPING., 


fc'CRP  LIMIT  CHANGE  OF  CONDENSED  SPECIES  QUANTITIES  DURING  C  EQTCOM 

CHFMISTPY  ITERATION. 

EORT  NOT  CURRENTLY  USED.  C  EQTCOM 

EOGEOV  VARIARIF  FOUIVALFNCEO  TO  EDGCOM  FOR  OUMPING  PURPOSES  L  DUMCOM 

EFR  EQUILIBRIUM  ERROR  OF  CONOFNSEO  SPECIES  BEING  INTRODUCED  L  MATER 

OUR TNG  CURRENT  ITERATION. 

EESE(N)  RESIDUAL  ERROD  IN  MASS  BALANCE  IMPOSED  IN  CHEMISTRY  SOLU-  L  MATER 

TION  AS  A  CONSEQUENCE  OF  BOUNDARY  LAYER  DAMPING. 

EG?  CONTRIBUTION  TO  THERMAL  FLUX  DUE  TO  INEQUALITY  OF  TURBU-  L  TRMBL 

LENT  RPANDTL  AND  SCHMIOT  NUMBERS 

EG3  CONTR I PU  r I  ON  TO  THERMAL  FLUX  DUE  TO  TURBULENT  VISCOUS  L  TRMBL 

DISSIPATION 

EHr  ERROR  IN  ENTHALPY  OR  ENTROPY  FOR  ASSIGNED  ENTHALPY  OR  EN-  L  MATER 

I  ROPY  CHEMISTRY  solutions. 

El  maximum  equilibrium  error,  IDENTICAL  TO  EEL*.  C  EQTCOM 

am  mixing  ifngtm  normalized  by  del.  c  epscom 

ELCUN  m  i  x  r  NG  lfngth  constant  AS  IN  L  *  ELCON*Y.  c  EPSCOM 
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el  x 

ELKM 

ELM(N) 

elmm 

tMIS 

KMT  SC 

tMlST 

RMIV 
ENL 
FNL IN) 

t'NLM(N> 

enlmm 

eol 

EP 

EPS*  <T) 
EPT 

EPOVRK 

EPS 

EPS  1 

EPS? 

EPSOUT 

tOP£OV 

EOTEOv 


1. 0(i  OF  EQUILIBRIUM  imbalance  of  kinf.tj.c  reaction.  l  kinet 

LUG  OF  non-equilibrium  of  kineuc  relation  l  kinet 

GLOBAL  SFT  OE  MAXIMUM  VALUES  OF  ERRORS  FOR  VARIOUS  SETS  OF  C  ERRCOM 
TAYLOR  SERIES  EXPANSIONS. 

MAXIMUM  VALUF  OF  FLM(N).  C  ERRCOM 

SURFACE  FmITTaNCF  OF  THF  MATFRlAL  BEING  CONSIDERED  UNDER  C  CRBCOM 
KR(Q>  =  O.A.S  OR  G. 

SURFACF  FmITTaNCF  OF  THE  MATERIAL  BEING  CONSIDERED  UNDER  C  CRBCOM 
KR  ( 0)  =  OR  4. 

SURFACE  EmITTANCF  OF  THF  MATFRlAL  BEING  CONSIDERED  UNDER  C  CRBCOM 
KR(R)  =  H  OR  6. 

SURFACF  FMTSSIVfTY  C  CRBCOM 

maximum  MASS  BALANCE  ERROR.  IDENTICAL  TO  ECNL*.  C  EQfCOM 

GLOBAL  SFT  OF  FURORS  FOR  LINEARIZED  CONSERVAI ION  EQUATIONS  C  ERRCOM 

AMO  ROUNDAPY  CONDITIONS. 

GLOBAL  SFT  OF  MAXIMUM  VALUES  OF  ERRORS  FOR  THE  VARIOUS  C  ERRCOM 

SETS  OF  l.TNtARlZFO  CONSERVATION  EQUATIONS  AND  BOUNDARY 
CONDI f TONS. 

LARGEST  VALUE  OF  ENLM.  C  ERRCOM 

mul.tipi.yimg  factor  used  to  smoothly  transform  kinetic  mass  l  kinet 

BALAMCF  Tn  EQUIVALENT  EQUILIBRIUM  EQUATION. 

ERROR  IN  OVF.RAl  l  PRESSURE  BALANCE.  L  MATER 

RHO(T)**?MtnnY  VISCOSITY)  /  (nHOE  <L )  *VNUE  (L )  >  •  C  EPSCOM 

locally  dekinfo  variable  l  trmbl 

CPSILON/K,  OF  REFERENCE  SPECIES  IN  DIFFUSION  CALCULATIONS  C  EQTCOM 


KIMFMATIC  FODY  VISCOSITY  L  TRMBL 

KINEMATIC  COUy  VISCOSITY  IN  WALL  REGION  C  EPSCOM 

KINFMATIC  Fr»OY  VISCOSITY  IN  WAKE  REGION  L  TRMBL 

VARIAHI i.  F  FOUIvaLFNCED  10  EPSCOM  FOR  OUiRUl  PURPOSES  L  TRMBL 

VARIABLE  FNOIVALFNCEu  to  EOPCOM  FOR  dumping  PURPOSES  L  OUMCOM 

VARIABLE  f  Oi> !  WAL  FNCFU  id  fO I  COM  fur  DUMPING  PURPOSES  L  DUHCOM 
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EP 

ERPRl 

ERPP2 

E»P1 

EPPP 

EPPEOV 

ETA(I) 

tTAEOV 

tTAT 

EXEL 

EXK  (MK) 

f(n.i> 

famoa  <n 

F  AMOH  1 .1) 

F'"KN) 

FF  <  J) 

rFA 

FF  AW 

FFF 


FPROR  IN  MASS  BALANCE  RELATION. 

DERIVATIVE  OF  DAWSON  FUNCTION  WITH  RESPECT  TO  ITS  ARGUMENT 
AT  I 

DERIVATIVE  OF  DAWSON  FUNCTION  WITH  RESPECT  TO  ITS  ARGUMENT 
AT  l-l 

OAWSON  FUNCTION  of  argument  at  I 
DAWSON  FUNCTION  r.F  ARGUMENT  AT  1-1 

VARIABLE  FOUIVALFNCEO  TO  ERRCOM  FOR  DUMPING  PURPOSES 

TRANSFORMED  COOROINATE  IN  A  DIRECTION  NORMAL  TO  THE 
SUREACF  OFFINEU  BY  EO  H3I  OF  NASA  CR-10G2. 

VARIABLE  FOUIVALFNCEO  TO  ETACOM  FOR  DUMPING  PURPOSES 

LOCALLY  DFFInEU  VARIABLE 

RATIO  OF"  FORWARD  TO  REVERSE  DRIVING  POTENTIAL  IN  KINETIC 
FOUATTONS. 

ALWAYS  SFT  TO  1,0.  (REACTION  EXPONENT). 

STRFAM  FUNCTION  <N=1).  VELOCITY  RATIO  (N«2>  AND  DERIVA¬ 
TIVES  OF  ORDER  N-?  OF  VELOCITY  RATIO  WITH  RESPECT  TO  ETA, 

AFPHANUMFWIC  VARIABLE,  FIRST  OF  TWO  PORTIONS  OF  SPECIES 
name.  IOFNTICAL  TO  MOA*. 

AI.PHAMUMFPJC  VARlAHLt,  SECOND  OF  TWO  PORTIONS  OF  SPECIES 
NAME.  IDENTICAL  TO  MOB*, 

ni  «  F  < N ♦ 1 . I )  ♦  02  *  HF  ( I »N*  1 )  FOR  N»1  THROUGH  1.  01 
*  F (4.1-1) *02  *  HF(I-I.A)  FOR  N»4. 

DIFFUSION  FACTOR  INTRODUCED  BY  THE  APPROXIMATION  FOR 
DIFFUSION  COEFFICIENTS  BY  E0(19)  OF  NASA  CR-1062. 

POWER  ON  MOLECULAR  WEIGHT  IF  IT  IS  ASSUMED  I HA T  THE  DIFFU¬ 
SION  FACTORS,  FF(J),  are  PROPORTIONAL  to  SPECIES  MOLECULAR 
WEIGHTS,  WIM (J) .RAISED  TO  A  POWER. 

POWER  ON  MOLECULAR  WEIGHT  READ  IN  IF  IT  IS  ASSUMED  THAT 
T HF  DIFFUSION  FACTORS,  FF(J),  aHE  PROPORTIONAL  TO  SPECIES 
MOLECULAR  WEIGHTS,  WTH(J).  RAISED  TO  A  POWER  OTHER  THAN 
O.S. 


PATIO  OF  GAS  MOLECULAR  WFIOHT  TO  »VHU2«. 
DIFFUSION  FACTOR,  FF(.J),  WHICH  IS  RF AO  IN. 
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L  MATER 
L  TRMBL 

L  TRMBL 

L  TRMBL 
L  TRMBL 
L  DUMCOM 
C  ETACOM 

L  DUMCOM 
L  FIRSTG 
L  KINET 

C  KINCOM 
C  VARCOM 

C  8L0C0M 

C  8LQC0M 

L  HISTXI 

C  EQPCOM 

EQPCOM 

INPUT 

MATER 


FFLN(J) 


L  INPUT 
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ff«? 

fitmol 

►  KF<Mio 

KLO(N.nN) 

FLF(N5 

FLFM 
FL  tO 
FI.PEQV 
FLUXJ(N,L.  t 

FLXFOV 
FP<  j) 

FN 

KNLFM 

F NU ( K ) 

FPPW 
Fp(j,n 
HHI..1) 
FWCON (L  > 


PARAMETER  SET  FQUAL  TO  WM/VMU?  FOR  EQUAL  DIFFUSION  COEFFI-  L  PROPS 
C1ENTS  (KKR (14) *?)  and  TO  fE(K)  f  OR  UNEQUAL  UlFFUSION  CO- 
FFFICtENTS  <KKR(I4>«0  OR  li. 

CONSTANT  in  CURVE  FIT  of  diffusion  factors  based  on  l  input 

HOLFCUI  A»  WEIC’HTS 

PBl-FXPONFNl t At.  FACTOR, POUND  MOLES  OF  REACTANT  P£R  SECONO  C  KINCOM 
PER  FT**?. 

CURVE  FIT  CONSTANT  ;  FOR  THERMODYNAMIC  DATA  FOR  THE  FLUID  C  STTCOM 
MIXTURE  IN  KR<7>»!  OPTION  (SIMILAR  TO  THE  QUANTITIES  DIS¬ 
CUSSED  IN  GROUP  1?  OF  THE  INPUT  INSTRUCTIONS).  NN«  1*?  OR 
i  FOR  TFMPFRATUHE  RANGES  LESS  THAN  3400  DEG  R.  EQUAL  TO  OR 
GREATER  Than  3400  DEG  R  RUT  less  THAN  5400  DEG  R.  OR,  EQUAL 
TO  OR  GREATER  Than  5400  DEG  R,  RESPECTIVELY.  N  REFERS  TO 
COMPONENT  OF  THE  NONREACTING  FLUID  MIXTURE. 

ERROR  FOR  Thf  TAYLOR  SERIES  EXPANSIONS  INVOLVING  F(I«I)  C  ERRCOM 

AND  THE  IP  DERIVATIVES. 

MAXIMUM  VALUE  OT  Fit (N) .  C  ERRCOM 

FRACTION  OF  a  SPFCIES  WHICH  IS  LIQUID.  C  EQTCOM 

VARIABLE  FUUIVALFNCEO  TO  FtPCOM  FOR  DUMPING  PURPOSES  L  DUMCOM 

)  CONVERGED  VALUE  FOR  MASS  FLUX  OF  COMPONENT  N  INTO  THE  C  WALCOM 

BOUNDARY  l. A Y F u  AT  THE  WALL.  N  *  I  TO  3  FOR  EDGE  GAS. 

PYhOLYSTS  GAS  AND  CHAP.  RESPECTIVELY. 

VAWTAHlF  FODIVAL FNCEO  to  FLXCOM  FOR  DUMPING  PURPOSES  L  OUMCOM 

3  IF  UNIMPORTANT  SPFCIFS  (NOT  SIGNIFICANT  IN  ANY  MASS  BAL-  C  EQTCOM 
ANCE).  OThFRWISF  l. 

LOCALLY  OpF INFO  VARIABLE  L  ERP 

ERROR  FOR  THF  1  INFARIZEO  MOMENTUM  EQUATIONS  AND  BOUNDARY  C  ERRCOM 

CONDITIONS. 

VNU(J.K)  FUN  CURRENT  J.  C  EQTCOM 

F  (3,1)  PPTNlEO  IN  ONE-LINE-PER-ITERATJON  OUTPUT.  L  I T£RAT 

“OLE  FRACHUN.  C  BLQCOM 

CONVERGED  VALUE  OF  S !  ME  AM  EUNCUUN  AT  SURFACE  OF  MOOY.  C  WALCOM 

I N T E OMAN' i  L’J  I'ALCULAIION  OF  FW  IN  HEFCON.  TEMPORARY  STOR-  C  TEMCOM 

a  of  »pr«  oimFh  bout  INFS. 
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FWOUM(L) 

G(N.I) 

GAM 

GAMIN) 

GAM1 
G AMF(K) 
GamhIKJ 
6amK(K.Kk> 
F-OfM) 

OF(M) 

«£P 


GLE(N) 

G!  FM 
G*P 

gnlfr 

uPADRO 

GW 

MU) 

M(  J> 

RALPH 

HCARR 

MCM 

MCMAC 


FW  •  SQRT(?*XI)  JN  REFCON.  TEMPORARY  STORAGE  AREA  IN  OTHER 
ROUTINES. 

TOTAL  ENTHALPY  <N»1)  AND  ITS  DERIVATIVES  OF  OROER  N-l  KITH 
RFSPFCT  Tl>  ETA. 

ISENTROPIC  EXPONENT. 

PARAMETER  GAMMA  APPEARING  IMPL1CITYLY  IN  EO  (17)  OF  REF.  6 
ISFNTROPff  EXPONFNT  FOR  HOMOGENEOUS  MIXTURE 
Off  TMEi)  hv  £0  <  79 )  OF  NASA  CR-1Q64. 

OFFJNEI)  Hr  EO(BO)  OF  NASA  CR-1064. 
nFMNFn  Hr  Eu(Hi)  OF  NASA  CR-IOgm, 

<'1  *  G(N,n  ♦  0?  *  HG(I.N)  FOR  N»l  THROUGH  3,  01  •  G(3« 

T - 1 »  ♦  0?  •  HG (1-1.3)  FOP  N»4. 

stagnation  enthalpy  at  boundary  layer  edge. 

ofrivativf  of  total  enthalpy  at  mounoahy-layer  edge  kith 
respect  to  eta 

ERROR  FOR  THE  TAYLOR  SERIES  EXPANSIONS  INVOLVING  G(l.I) 

* NO  THEIR  DERIVATIVES. 

MAXIMUM  VALUE  OF  GLF(N). 

TSfWTROPTc  EXPONENT  FROM  EQUILIBRIUM  CALCULATION 

ERROR  FOP  Tnf  L1NFARI7E0  ENERGY  CONSERVATION  EQUATIONS. 

NORMA!  -TO-PI TCH-Pl ANE  STAGNATION-POINT  VELOCITY  GRADIENT 
PATIO 

FIRST  GUESS  FOR  KALI  FNThALPY  MMlCR  IS  READ  IN  KHEN 
MR  (?) »0 

STATIC  ENTHALPY  OF  THf  MIXTURE.  IDENTICAL  TO  MM*. 

FNTHALPY,  IDENTICAL  TO  MM*. 

S10RF0  (MfSTOPlC)  VALUE  OF  Al.PM  ONE  STATION  UPSTREAM. 

HEAT  OF  FOMMATIOm  AT  ?4«  OEG.  *  OF  THE  SURFACE  MATERIAL 
HFINf,  CONNiOEPFU  UWOEP  KR  (9)  ■  1  OR  4. 

CMAMfiFW  I  OR  STAGNATION)  FNTHALPY 

CM*0  FNTHALPY 


C  TEMCOM 

C  VARCOM 

L  EQUIl 
L  FELTRU 
C  STTCOM 
C  EQTCOM 
C  EQTCOM 
E  NONCOM 
L  HISTXI 

C  PRMCOM 

C  ERRCOM 

C  ERRCOM 
C  PRPCOM 
C  ERRCOM 
C  PRMCOM 

L  FIRSTG 

C  PRPCOM 
C  EQTCOM 
r  MISCOM 
C  CRUCOM 

L  EOUIL 
C  CPU  CO** 


47 


APWl-‘ra-69-lll#  Vol  I  (Supp.) 


hcmai. 

hf 

UFA  (I.) 
rlFT 

hf <|,n> 

«r, 

HG< \ ,N> 

m;k[) 

HH(  J) 
MTMF 
HIP 
rlTSVOV 
MISTI  ( N ) 

HIST?!*) 

HIST  K  N> 
HISTA I M  * 

MM<  Jl 
HPAT 

mm vi  r 

mOS 

mP 

MPr, 

MPrr, 


ENTHALPY  OF  StiwMCF  SPFCIFS  DURIN6  KR(9>  »  3  OH  4  OPTIONS. 

STATIC  FMHALPY  OF  GAS  AT  ROUNUAWY-LAYEP  EOG£. 

STATIC  ENTHALPY  DISTRIBUTION  AT  bOUNOAMY-LAYER  EOGE 

TOTAL  ENTHALPY  Of  GAS  AT  ROUNDARY-LAYER  FOGE. 

STORFf)  (HISTORIC!  VALUE  OF  MN.I)  ONE  ST  £  T  ION  UPSTREAM 

row  Nat  through  a,  hfu.S)  a  oi«Fti.l>  *  u?«hf < T . i) 

HHfRF  m  ANU  !)?  ARE  OFFINEO  BY  £0(88)  OH  (89)  OF  NASA 
CW-lflA?. 

ENTHALPY  OF  GAS*  IDENTICAL  Tu 

STORED  (MISTOPJCl  VALUE  OF  G(N.l)  ONE  STATION  UPSTREAM. 
STATIC  ENTHALPY  OF  THE  MIXTURE*  IDENTICAL  TO  H*. 

ENTHALPY.  (NOFNTICAL  TO  M ( J) • • 

FRFF-STWFam  static  ENTHALPY 
ENTHALPY  input. 

WAKlAHLt  IOUIVALFNCEU  TO  HISCOm  FOW  DUMPING  PURPOSES 

SFT  OF  VARIABLES  STARTING  NITH  XI  (1>  TO  HE  STORED  ON  TAPE. 

SFT  OF  VAUiSHiFS  STARTING  WITH  P£ (1 *  1)  TO  BE  STORED 
Of  TAPF 

SFT  OF  VAOIAMIES  STARTING  WITH  F(l.l)  TO  HE  STORED  ON  TAPE 

SFT  OF  VARIAHlfS  STARTING  Ml IH  Fm()*|)  TO  BE  STORED 
OR  TAPE 

FNTHA1  P>  OF  FUSION. 

MEAT  Of  Form A t ION  AT  ?9A  DEG.  A  OF  THF  MATERIAL  BEING  CON¬ 
SIST  MFH  u*)PEr  «R(h>  *  3,4,5  UM  ft. 

IF  j  [„  sPFCUS  IS  CmANGINo  PHASE*  OTHERWISE  0. 

FNlHAlP'  ow  OF  SPfCIFS  in  ASSIGNFO  ENTHALPY  OR  EN- 

t  Pf'PY  ChImINTOY  S'LUtinS. 

'FR(VAT!U*  nr  H  *ttm  R*SPFCT  TO  ETA. 

‘■r»r  'If  fot»»U  Ti  *  T  ?<jl  OFG.  A  OF  TmE  PYCOLYSIS  GAS  BEING 
nvM.iM*.!  UsuFR  ahiyj  ■  »  OP  •». 

Pt-Ol  tSf  n  f.*s  * 


C  EQPCOM 
C  ED6C0M 
C  E06C0M 
L  STATE 
C  HISCOM 

C  EOTCOM 
C  HISCOM 
C  rRPCOM 
C  EOTCOM 
C  EOGCOM 
C  E3TCOM 
L  DUMCOM 
E  HISCOM 
E  edgcom 

E  VARCOM 
E  VALCOM 

C  EQPCOM 
C  CRfJCOM 

C  EOTCOM 
L  MaTF» 

C  PRRCOM 
C  CRRCOM 

C  CRBCOM 
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HSPIf.N.M  STORED  (HISTGPIc;  VALUE  Of  SPIH.I.K)  ONE  SIATION  UPSTREAM,  C  MlSCOM 


HTllP 


NW<L.t> 


Kf  AT  Of  fopMATlOw  AT  ?9B  OE&.  A  u f  THE  MATERIA)  BE  I  NO  COM-  C  CR6C0M 
MDEHFO  UNDER  K«(9>  ■  S  OH  6. 

PROPERTY  of  The  gaS  mUTU»E  WhICh  REDUCES  TO  hI!)  EON  C  PRPCOM 

EQUAL  DIFFUSION  COfff  JClfMTS*  SEE  fOI?B>  Of  NASA  CR-1062. 

DERIVATIVE  OK  HTfL  WIT*  RESPfCI  TO  ETA.  C  PRPCOM 

CONVERGED  FnThALPY  Of  GAS  AT  Ih£  WALL  *  C  WALCOM 

INlif*  ON  K  T  A  «  l»l  AT  WALL  •  IDENTICAL  f  0  H». 

LOCAl  L  XlNET 


VARIABLE  TO  CMFCW  If  SUHQOUTINE  has  PREVIOUSLY  BEEN  ENTERED  C  0UMCOM 


ASSIGNED  THf  VALUE  COMMA  <«>  THROUGH  A  DATA  STATEMENT  FOP 
USE  IN  TEST  Of  RnFTHER  TmFHE  IS  TO  HE  ANOTHER  CASE. 


L  BLIMP 


I H  IK) 


I  Ht  ANM 


TNOEE  ON  SPECIES  WITH  LARGEST  CONTRIBUTION  TO  K  Tm  MASS  C  EQTCOM 

BALANCE.  SUBSEQUENTLY  ORDERED  ON  Iti  WITH  DUPLICATES  SET 
To  1000. 

ASS  I  GW-  D  The  VAfir  HLAN*  I  »  THROUGH  A  DATA  STATEMENT  FOR  L  OUTPUT 
USE  !«  TTST  Of  WhFThEh  There  IS  10  HE  ANY  PUNCHED  CARO  OUT¬ 
PUT. 


»C<M 


NEGATIVE  I  won  f>r  FLEMFNT  CORRESPONDING  TO  *Th  BASE  SPECIES  L  INPUT 


f  CORK. 


I  NO  FA  CO«Pf  SPENDING  TO  COPRA  IN  THE  CORA1*  ARKAT. 


C  BDMCOM 


CtCLF  COunTFR  ON  OOS1  INVERSION  MODIFICATION  IN  CHEMISTRY 

sm  uTfov 


L  EQ'JIL 


IOFNT 


KLPHANtfMFvfC  IDENTIFICATION  APPEAR!  NO  ON  PL-CHEO 

CARO  DATA  (NO  CAPOS  PUNCHED  I>‘  I  Of  NT  IS  INPUT  AS  A  BLANK). 


C  INTCOM 


:oiSC(L)  r-*NTP«H.  VkWIAPLF  *09  OISCONT  |NUI  I T  <1  IF  DISCONTINUITY. 

OTHER* I 5f  01. 


C  P8MC0M 


I  OS  I  P 


ITEM  WMfN  OSIP  IS  TO  BE  UPDATED. 


EOGCOM 


LOCALLY  OfriNfD  VARIABLY 


L  SETUP 


FOUATION  IMOfl  ffi«  CONDENSED  species. 


L  HATER 


IF*  n 


INOICiES  ON  WiAlM.  *»  NON-L  INCA°  ERRORS  FOR  EACH  Sf  T  O' 
COMSf-PVAT  TOS  FQU*T  IONS 


L  RHLOf P 


|TM>  M 


INOIClfS  r»  MOM-LJNCAR  1**0*$  f  Os»  EACH  Sf  I  Of 

C^NSfPVAT  1,-v*.  *  gti*  T  I  DNS 


L  NONCE R 
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IFP 

IFC(J) 

IFLM 


FOUAT I  (IN  NUMBER  TO  REPRESENT  NEWLY  APPEARING  CONDENSED  SPE-  C  EOTCOM 
f  IKS. 

CONTROL  Fi  AG  (0  GAS*  -1  NONPRFSENT  CONDENSED*  *1  PRESENT  C  EOPCOM 
CONDENSED.  PRIOR  FLAGS  DECREMENTED  RY  _  IF  SPECIES  CONTAINS 
NONRRFSENT  ELEMENT  OR  INCREMENTED  RY  3  IF  IT  IS  A  BASE  SPE¬ 
CIES  RFPRi SENT INO  A  NONPRESENT  .ELEMENT ) . 


INDEX  OF  THE  SET  Or  LINEAR  EQUATIONS  WHICH  HAS  THE  LARGEST 
FPPOB  FLEM. 


C  ERRCOM 


IFLUXJ 

ITEM  WHFN  FLUXJ  IS  TO  RE  UPDATED. 

C 

WALCOM 

IFN 

INDEX  ON  |  INEAR  VARIA3LE  FI1*I) 

L 

I  HONE 

1FN 

INDEX  ON  LINEAR  VARIAHLF.  F  <  ]  .  I ) 

L 

I  ONLY 

IFNI  M 

INDEX  OF  ;  if  LINFARI/FO  MOMENTUM  EQUATION  WHICH  HAS  THE 
LARGEST  ERROR  FN|  EM. 

C 

ERRCOM 

1FP 

INDEX  ON  nON-i.INFAR  VARtARLE  F(2*I> 

L 

IMONE 

IFP 

INDFX  ON  NON-LI  UP AR  VARIAHLF  F(2.I> 

L 

I  ONLY 

IFDP 

INDEX  ON  LINEAR  VARIARI.F  F|3.I) 

L 

IMONE 

IFOP 

INDEX  ON  LINEAR  VARIAHLF  F ( 3* l ) 

L 

I  ONLY 

IFPPP 

INDEX  ON  1  iNEAP  VARIARLE  F(4*I) 

L 

IMONE 

IFPPP 

INDEX  ON  |  INFAR  VARIARLE  F(4.I) 

L 

I  ONLY 

I FW 

ITLM  WHEN  Fw  IS  TO  HE  UPDATED. 

C 

WALCOM 

IG 

NOMINALLY  zero,  equals  one  on  first  set  OF  BOUNDARY  LAYER 
CHEMISTRY  SOLUTIONS.  FIRST  GUESS  AT  1+  IS  SOLUTION  AT 

I-IG. 

L 

equil 

10 

ELIMINATION  INDEX  in  rase  SPECIES-ELEMENT  CORRESPONDENCE 
LOGIC. 

L 

INPUT 

IOLM 

INDEX  OF  THE  SET  OF  LINEAR  EUUATIONS  WHICH  HAS  THE  LARGEST 
FRROR  GLFM. 

C 

ERRCOM 

10NLM 

j 

INDEX  OF  THE  LINEARIZED  ENERGY  CONSERVATION  EQUATION  WHICH 
HAS  THF  LARGEST  FRROR  GNI  EM. 

C 

ERRCOM 

IHW 

ITEM  WHFN  HW  IS  TO  RE  UPDATED. 

C 

WALCOM 

IT 

INDFX  ON  FTA.  11=1  Al  WALL*  IDENTICAL  TO  !♦. 

C 

INTCOM 

F 

;  ITS 

LOCAL  INDFX 

L 

RECASE 
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j.i 

II 

ILMM 

IM  (K ) 

IMT 

IMJ 

IML 

IN 

INLNM 

INP 

[P»F 

INTFOV 

I  MW 

IQ 

100 

If*  (K/ 

IRAO 

IRE 

IRHOVW 

IS 

IS 


i  ocai  f  mi  if  x  L  PROPS 

LOCAL  INDEX  L  PROPS 

f NOF a  ON  FIRST  CHEMISTRY  EQUATION  TO  RE  SOLVED  U  FOR  UN-  C  EQTCOM 
KNOWN  T  AMI.1  ?  FOP  KNOWN  T>. 

INDEX  OF  THF  LINEAR  EQUATION  WHICH  HAS  THE  LARGEST  ERROR  C  ERRCOM 

FLMM, 

WOW  ANO  COLUMN  INDEX  IN  INVERSION  OF  CIJ  TO  UM.  L  INPUT 

LOCAL  INOFX  L  INPUT 

LOCAL  INOFX  L  INPUT 

LOCAL  INOFX  L  INPUT 

UUMHEB  OF  EQUATIONS  HE1N0  SOLVED  (HAS  THE  VALUE  OF  THE  LO-  C  EQTCOM 
PAL  VARIABLE  TSPQ  IF  TEMPERATURE  IS  UNKNOWN  OR  ISPQ-1  IF 
TFMPFRATHRE  IS  KNOWN). 

INDEX  OF  THE  NONLINEAR  FOUATION  WHICH  HAS  THE  LARGEST  ERROR  C  ERRCOM 
FNLMM. 

IN*?  L  CRECT 

ITEM  when  PRE  IS  TO  BE  UPDATED.  C  PRMCOM 

VARIARIF  FOUIVmLFNCEU  TO  INTCOM  (EXCEPT  KR(20>>  FOR  L  DUMCOM 

MUMPING  PURPOSES 

FLAG  ON  RFSTAPT  OF  C.EMISTRY  (PERMITS  ONLY  ONE  RESTART)  L  EQUIL 

FOR  FACH  MON-RASF  GASEOUS  SPECIES  INITIALIZED  TO  ZERO.  SET  L  MATER 
TO  ONE  IF  SPECIES  IS  SIGNIFICANT  IN  ANY  MASS  BALANCE. 

OFHUG (-?)  AND  NONCONVEROFNT (-1 >  FLAG  ON  CALL  TO  AND  RETURN  l  EQUIL 
FROM  RFRAY,  RESPECTIVELY. 

CORRESPONDENCE  VFCTOR  BETWEEN  BASE  SPECIES  AND  ELEMENTS.  C  EQPCOM 

ITEM  WHEN  RAMP  JS  TO  RE  UPDATED.  C  PRMCOM 

TNDFX  ON  NEWLY  APPEARING  CONDENSED  SPECIES.  C  EQTCOM 

ITEM  WHFN  RHOVW  IS  TO  RE  UPDATED.  C  WALCOM 

NUMBFR  OF  ELEMENTS  INCLUDING  ELECTRON.  IDENTICAL  TO  IZ*.  C  EOPCOM 

INDEX  ON  S.  ISsl  AT  STAGNATION  POINT  OR  LEADING  EDGE.  C  INTCOM 

IDENTICAL  TO  ISS*. 
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1SH 

ISM 

IS» 

Ibp 

Isp 

ISP 

ISP? 

ISP? 

isplm<k> 

ISPM 
I SPN 

ISPNLM(K) 

ISPP 

ISPP 

ISPPP 

ISPl 

ISPO 

ISPO 

ISPW 

ISS 

1ST 

ISlI 

ISV 


VALUE  OF  IS  AT  PRFVIOMS  S1REAMWISE  STATION  AT  WHICH  A 

boundary-!  ayfp  solution  has  been  obtained 

NSP-1 

NUMBER  OF  ELEMENTS  INCLUOTNG  ELECTRON  PLUS  ONE. 

SAHF  AS  ISP  IN  INPUI. 

(IS*)  ♦  1  WHERE  IS*  IS  THE  NUMBER  OF  ELEMENTS  INCLUDING 
ELECTRONS. 

MSP  ♦  ] 

NUMBFP  OF  ELEMENTS  INCLUDING  ELECTRON  PLUS  TWO. 

NSP  ♦  ? 

TNllFX  OF  THE  SET  OF  LINEAR  EQUATIONS  WHICH  HAS  THE  LARGEST 
ERROR  SPLFM(K). 

INOFX  ON  NON-LINEAR  VARIABLE  <b<l.I)  OR  SP(1.I»<>> 

INL'FX  on  NON-L INFAR  VARIABLE  (GI1.I)  OR  SP  1 1 1 1  *K)  ) 

INDEX  OF  the  LINEARIZED  elemental  conservation  equation 
'hHTCH  has  the  LARGEST  ERROR  SPNLEM(K). 

INOFX  ON  LTNFaR  variable  ig(2.i>  or  SP (?♦ I »K) ) 

INDEX  ON  l  INEAR  variable  <G<2»t>  OR  SP<?.I»K)) 

INOFX  ON  LINEAR  VARIABLE  ( G  ( 3  »  I )  OR  SP  (3.I*K>) 

INDEX  ON  LINEAR  VARIABLE  (G(3* I)  OR  SP  (3»I«K)) 

ISP?  ♦  NUMBER  OF  PRESENT  CONDENSED  SPECIES. 

NIIMRFP  OF  EQUATIONS  SOLVFO  IN  CHEMISTRY  SOLUTIONS.  IS*2* 
NUMBER  OF  PRESENT  CONOFNSFD  SPECIES. 

ITEM  WHEN  SPW  IS  TO  BE  UPDATED. 

INDEX  ON  S.  I SS= ]  Af  STAGNATION  POINT  OR  LEADING  EDGE. 
IDENTICAL  TO  IS+. 

LOCAL  INDEX 

INDEX  OF  SPECIES  REPRESENTATIVE.  OF  SUPFACE 

ISV  IS  SET  EQUAL  TO  IS*  NEAR  BEGINNING  OF  SUBROUTINE  PROPS 
IS*  Them  he  1 NG  SET  TO  NSP.  IS*  RESTORED  TO  ISV  AT  THE  END 
OF  PROPS. 


C  INTCOM 

L  PROPS 
C  BUMCOM 
L  EQUIL 
L  INPUT 

L  PROPS 
C  KINCOM 
L  PROPS 
C  ERRCOM 

L  IMONE 
L  I  ONLY 
C  ERRCOM 

L  IMONE 
L  I ONLY 
L  IMONE 
L  I ONLY 
C  KINCOM 
L  EQUIL 

C  WALCOM 
C  INTCOM 

L  FIRSTG 
C  CRBCON 
L  PROPS 
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isv? 

ISVP 

IT 

IT 

ITEM 
I  TFT 

ns 

ITS 

ITT 

(TW 

111 

IX 

IX 

IX 

17 

J 

JAST 

JAT(N) 

JB 

JC 

JJ 

JL 

JM 


LOCALLY  DEFINED  VARIABLE  L  PROPS 

ISVM  L  PROPS 

NOT  USED  IN  CURRENT  VERSION*  IDENTICAL  TO  1 1 T ♦  •  C  EQTCOM 

niftRFMTLY'  SET  TO  UNITY,  IDENTICAL  TO  ITT*.  C  INTCOM 

TTMF  (OR  SUBCASE).  C  INTCOM, 

NEGATIVE  COUNT  ON  SUCCEEDIN'*,  CHEMISTRY  SOLUTIONS  WHICH  WILL  L  EQUIL 

ACCEPT  RESIDENT  SOLUTION  AS  FIRST  GUESS. 

COUNTER  FOR  CHEMTSTRY  ITERATIONS*  IDENTICAL  TO  IlTS*.  C  EQTCOM 

COUNTER  FOP  BOUNDARY  LAYFR  ITERATIONS*  IDENTICAL  TO  MlTS*.  C  INTCOM 

CURRENTLY  SET  TO  UNITY,  IDENTICAL  TO  IT*.  C  INTCOM 

ITEM  WHEN  TW  IS  TO  BE  UPDATED.  C  WALCOM 


COUNTER  on  NUMBER  or  STREAMWIS£  STATIONS  AT  WHICH  BOUNDARY  C  INTCOM 
LAYER  SOLUTIONS  HAVE  REEN  OBTAINED 

VARIABLE  TN  RERAY  CALL  SEQUENCE  HAVING  TO  DO  WITH  PRINTING  C  8UMC0M 
OF  DFRUG  OUTPUT,  -?  GIVES  DEBUG,  COMES  BACK  3  IF  INVERSION 
SUCCEEDED,  1  IF  SINGULAR, 

DIAGNOSTIC  FLAG  PREVIOUSLY  USED  TO  INDICATE  TYPE  OF  BAD  IN-  L  INPUT 


RUT  UFTFCTFD. 

DEBUG  FLAG.  L  RERAY 

NUMBER  OF  FLEMENTS  INCLUDING  ELECTRON*  IDENTICAL  TO  IS*.  C  EQPCOM 
LOCAL  INDEX  (VARIOUS  ROUTINES) 

READ  IN  AS  COMMA  (,)  OR  PERIOD  {.)  FOR  TEST  OF  WHETHER  L  BLIMP 

there  is  to  bf  another  case  <see  input  instructions). 

atomic  NUMBER  OF  an  ELEMENT  WHICH  CONTAINS  ALPT(N)  ATOMS  L  INPUT 
IN  a  species. 

LOCAl  INDFIX  L  MATS1 

INDFX  ON  SURFACE  CONDENSED  SPECIES.  C  EQTCOM 

LOCAL  INDEX  (VARIOUS  ROUTINES) 

LOCAL  INDEX  L  TRMBL 

J-l*  WHERE  «j>  BASE  SPECIES  COUNT.  L  INPUT 
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JRmOVw  SET  EQUAL  TO  UNITY  IF  RHOVW  OR  FLUXJ  ARE  READ  IN  FOR  L  REFCON 

CURRENT  TIME*  OThFRwISF  /FRO, 

JT  LOCAL  INDEX  L  EOUIL 

KAPPA  INOFx  OF  THE  NODAL  POINT  AT  WHICH  THF  VELOCITY  RATtO  IS  C  INTCOM 

FIXED. 

KaT(K)  ATOMIC  NUMBER.  C  EQPCOM 

KIN  NUMBER  OF  TAPF  FPOM  WHICH  DATA  IS  READ.  C  INTCOM 

KINfcQV  VARIARIF  HTUlVALFNCEO  TO  KINCOM  FOR  DUMPING  PURPOSES  L  DUMCOM 


KIP  CONTROL  VARIABLE  0  UNLESS  PERFORMING  ASSIGNED  TEMPERATURE  C  BUMCOM 

CAl  OllLATtoN  DUPING  KR(9i=F>  ENERGY  BALANCE  PROBLEMS  <SEE 
DEFINITION  OF  IF  7), 

KK  LOCAL  INnpX  (VARIOUS  ROUTINES) 

KKR(M)  ARRAY  OF  INPUT  (NTFGERS  WHICH  CONTROL  THE  VARIOUS  OPTIONS  C  INTCOM 

of  thf  program.  tdeniical  to  kr*. 

KOUT  NUMBER  OF  TAPF  ONTO  WHICH  DATA  IS  WRITTEN.  C  INTCOM 

KPHA(N)  PHASE  INOFX  FOR  A  SPECIES*  1=GAS.  2«S0LID.  3»LI0U1D.  L  INPUT 

KO  (N)  (OFNTICAL  TO  kr<n)*  BY  TRANSMITTAL  THROUGH  CALL  LISTS  OF  C  INTCOM 

PROGRAMS  FOUTL  ANO  INPUT.  ALSO  IDENTICAL  TO  KD(N)*. 

KR(M)  CONTROL  Card  fop  CHEMISTRY  CALCULATION  (KR(1>  *  0  FOR  ASSI-  C  EQPCOM 

GNfcD  TEMPERATURE.  1  FOR  SURFACE  EQUILIBRIUM.  2  FOR  ASSIGNED 
ENTHALPY.  KRl?)  ANO  KR ( 1)  ARE  1  IF  ELEMFNT  ANO  SPECIES  DATA 
ARE  TO  HF  READ  IN.  OTHERWISE  0.  KR<4>  IS  NOT  USED*  KR(5>  IS 
o  IF  IT  IS  NOT  A  BOUNDARY  LAYER  EDGE  SOLUTION.  1  FOR  EXPAN” 

SION,  ?  FOR  STAGNATION.  KR(6)  IS  0  FOR  BOUNDARY  LAYER  CALCU 
l  ATION.  P  FOR  SURFACE  MASS  BALANCE.  KR (7)  CONTROLS  DEBUG. 

IDENTICAL  TO  K/(N>*. 

KR (N)  array  OF  INPUT  INTEGERS  WHICH  CONTROL  THE  VARIOUS  OPTIONS  C  INTCOM 

or  the  program,  identical  to  kkr*. 

KR?  KKR<?)  (FTPST  GUFSS  FLAG)  PRESERVES  VALUE  SINCE  KKR<2>  IS  L  EQUIL 

RFTSET  TO  2ERO  IN  SETUP. 

KPR(l)  VALUES  OF  KR<9>  WHEN  WALL  BOUNDARY  CONDITIONS  APE  TO  BE  C  INTCOM 

CHANGED  AT  DOWNSTREAM  STATIONS.  CURRENT  KR<9>  ASSIGNMENT 
MADE  MFAR  HFGINNTMG  of  subroutine  NONCER. 

KR\7  SAVED  VALUE  FOR  KR(17).  C  INTCOM 

KC  SURFACE  MATERIAL  INDEX  (FOR  EACH  STATION)  C  CRBCOM 
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l  (M) 

LAM(K, J) 
t  AR(N) 

LAST 

LFEUO 

LFPS (« ) 

LFFT(K.N) 

LFEUP 

LFFW<K) 

L! 

LTM(K.KK) 
LI  ( MK ) 

LL(N> 

LIL(N) 

LNZ 

LPT 

LB 

LBK 

LS 

lsktp 

L? 

LT 


index  on  columns  during  inversion.  l  reray 

UNITY  IF  J  TH  SPECIES  CONTAINS  K  TH  ELEMENT  ,  OTHERWISE  ZERO  C  EQPCOM 

INDEX  USED  FOR  RF ARRANGING  ELEMENTS  IN  MATRIX  OF  NONLINEAR  C  ETACOM 
FOUAT IONS  (AM). 

ASSIGNED  THE  VALUE  PERIOD  (.)  THROUGH  A  DATA  STATEMENT  FOR  L  BLIMP 
USE  IN  TFST  of  WHETHER  there  is  to  be  anothf:r  case. 

FLAG  REGARDING  MISSING  ELEMENTS  FOR  CURRENT  SOLUTION.  3  C  BLQCOM 
ALWAYS  PRESENT  FROM  EDGE.  ?  ALWAYS  PRESENT  UUE  TO  UPSTREAM 
INJECTION.  1  PRFSFNT  OUE  TO  LOCAL  INJECTION.  0  NOT  PRESENT. 

FLAG  REGARDING  MISSING  ELEMENTS  EROM  PRIOR  SOLUTION.  SEE  C  BLQCOM 
LEE  FOP  NUMERICAL  VALUES. 

TEMPORARY  STORAGE  FOR  LEE (K)  DURING  TAPE  FLIP-FLOP  FOR  C  FLPCOM 

M  a  ]  AND  ?. 

UPDATE  LFF  IE  EQUAL  TO  ZERO  (*MITS*II-?  FOR  BOUNDARY  LAYER  L  EOUIL 
SOLUTION,  OTHERWISE*! ) . 

FLAG  REGARDING  MfSSING  FLEMEVf?  FOR  CURRENT  WALL  SOLUTION,  C  BLQCOM 


SEF  LEF  FDP  NUMERICAL  VALUES. 

LOCAL  INOFX  L  LINMAT 

LAM(K.KK)  FOR  KKTH  BASE  SPECIES.  L  INPUT 

INDEX  ON  MASS  BALANCE  WHICH  IS  CONTROLLED  BY  N  Th  KINETIC  C  KINCOM 

RFACTION. 

POW  INUFX  OF  prVOT  FOR  NTH  COLUMN.  L  RERAY 

COLUMN  TNDFX  n«  PIVOT  FOR  NTH  ROW.  L  RERAY 

l  OCA)  TNOFX  L  RECASE 

LOCAL  INOFX  (VAPIOUS  ROUTINES) 

LOCAL  INDEX  L  TRMBL 

LOCAL  INDEX  L  TRMBL 

INDEX  USED  TO  REARRANGE  COLUMNS  IN  RCRAY  (SEE  LAR)  L  RERAY 

LOCAL  INDEX  L  NONCER 

INDEX  ON  PYROLYSIS  GAS  COMPONENT  C  EOTCOM 

INDEX  ON  CHAR  COMPONENT  C  CQTCOM 
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M 

Ml 

MA (MK) 
MAT  1 1 

MAT1J 

MAT?I 

matpj 

mflt 

MT 

HITS 

MM 

MOA(J) 

MOBIJ) 

MODE 

mde 

HP 

mpj 

MPJ 

MSO(N> 

MT 


LOCAL  INDEX  (VARIOUS  ROUTINES) 

COUNT  ON  PRINCIPAL  SPECIES  AFTER  ORDER  I  NR  IB.  L  CRECT 

ORDER I NR  VECTOR  RASED  on  having  rat  in  descending  sequence  c  kincom 

a  *  NET A  -  t,  NUMBFR  OE  TAYLOR  SERIES  EXPANSIONS  AND  LINEAR  C  INTCOM 
BOUNDARY  CONDITIONS  INVOLVING  E  ( 1  *  I )  AND  ITS  DERIVATIVES. 

NETA  ♦  3.  NUMBER  OF  LINEARIZED  MOMENTUM  EQUATIONS  AND  C  INTCOM 

BOUNDARY  CONDITIONS. 

?  *  nf  ta  .  number  oe  Taylor  series  expansions  and  linear  c  in^com 

HOUNOA.-'V  CONDI  r  IONS  INVOLVING  G  ( l.t  I )  and  its  DERIVATIVES 
OR  THE  K  Th  SPECIES.  SP(l.I.K).  and  its  DERIVATIVES. 

NFT A «  number  of  LINEARIZE!)  ENERGY  OR  K  TH  ELEMENTAL  CONSER-  C  INTCOM 


VAllON  EOhaTIONS  AND  HOUNDARY  conditions, 

INDEX  ON  PHASE  CHANGING  SPECIES.  C  EQTCOM 

ma(K)  L  KINET 

COUNTER  FOR  BOUNDARY  LAYER  ITERATIONS.  IDENTICAL  TO  ITS*.  C  INTCOM 

LOCAL  INDEX  (VARIOUS  ROUTINES) 

ALPHANUMERIC  VARIABLE,  FIRST  OF  TWO  PORTIONS  OE  SPECIES  C  BLQCOM 
NAMF,  IOEMTICA1  TO  FAMOA*. 

ALPHANUMEPrC  VARIABLE.  SECOND  OE  TWO  t-^RTIONS  OE  SPECIES  C  BLQCOM 
NAME,  IDENTICAL  TO  EAMOR*. 

STORED  VAI UF  FOR  KR<1)».  C  EQTCOM 

EI.AG  SET  TM  EOUII.  ANO  USEO  IN  CRtCT.  ZERO  RESULTS  IN  EM-  L  EQ"IL 


PHASJ7ING  FOU  f  L  I  P.R  I UM  EQUATIONS  DURING  CHEMISTRY  CONVER¬ 
GENCE.  ONE  RESULTS  IN  EMPHASIZING  MASS  BALANCES. 

INDICES  USED  IN  REARRANGING  REACTIVE  MASS  BALANCES  ACCORD-  L  KINET 
I  NO  TO  CONTROlLlNG  REACTIONS. 

LOCAL  INDEX  (VARIOUS  ROUTINES)  L  IMONE 

!  OCAL  TNDFX  (VARIOUS  ROUTINES)  L  IMONE 

HAS  THE  VALUE  OF  IS  AT  THE  BEGINNING  OE  M  TM  REGION  80UN0E0  C  PRMCOM 
BY  njSCONTINUjTKS  (  mSi)  ( l )  *  I  BY  DEFINITION)  WM£*»E  IS  IS  THE 
INOPX  on  s. 

NuRRFR  or  x  INF  I IC4LLY  COwTRQLLtU  REACTIONS.  C  KlNCOM 
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MWF 

N) 

NAM 

NRT 

nht? 

NC 

ncv 

NO 

wr«?sr 

NFLM 

MEN 

NFMI.M 

nfta 

NFF 

NFTA (J) 

NFIm(J) 

•if  M 

NITEM 

Mtco 

N* 

HH 

Hfn.ro 


% 

r.MNTPni  VARIABLE  (-1  FOR  NEW  CAFE.  SFT  TO  ZERO  AT  THE  ENO  C  INTCOM 
OF  SUBROUTINE  SETUP) . 


MUMPFp  OF  ROWS  ♦  1  L 

NUM«pR  OF  NONLINEAR  EQUATIONS  NOT  INCLUDING  NONUNEAR  WALL  C 
Mf-.iNOARY  CONOfTTONS,  NNLEO-NRNL. 

NUMBER  OF  ONE  OF  TWO  TAPES  USED  IN  ELIP-EL0P.  C 

NUMTFP  OF  ONE  OF  TWO  TAPES  USED  IN  FLIP-FLOP.  C 

NOMHFP  OF  COMPONENTS  OF  The  NONREACTING  FLUID  MIXTURE  IN  C 

KR ( 7) « 1  OPTION. 

NONCONVERGENCF  COUNT.  INITIALLY  ZERO.  INCREMENTED  0Y  ONE  L 
FOP  EACH  MONCONVEROENT  CHEMISTRY  SOLUTION. 

dimension  RAN^MITTED  THROUGH  CALL  L 

NUMBER  OK  DISCONTINUITIES.  C 

WIIMAM  OF  MAXIMUM  LINFAB  ERRORS  ELM.  C 

NUMBER  OF  FN TRIES  IN  ENTROPY  TABLE  C 

number  of  maximum  NONLINEAR  ERRORS  ENLM.  C 


MUMMER  OF  NODAL  POINTS  ACROSS  BOUNDARY  LAYER  INCLUDING  WALL  C 
AND  FUC.F. 


RERAY 

INTCOM 

INTCOM 

INTCOM 

STTCOM 

EQUIL 

RERAY 

PRMCOM 

ERRCOM 

EOGCOM 

ERRCOM 

' NTCOM 


number  OK  SPECIES  FOR  WHICH  DIFFUSION  FACTORS,  FFI ( J) .  ARE  L  INPUT 
TO  BE  BEAU  IN. 

% 

first  OK  TWO  PORTIONS  OF  NAME  OF  MOLECULE  FOR  WHICH  OIFFU-  L  INPUT 
STOW  FACTOR.  FFU).  IS  BEING  RLAU  IN. 

SFCONO  OK  TWO  PORTIONS  OF  NAME  OF  MOLECULE  FOR  WHICH  OIFFU-  L  INPUT 


STOW  FACTOR.  FFIJI.  IS  RFInG  READ  iN. 

NUMBfR  OF  SIGNIFICANT  SPECIES  PLUS  NUMBER  OF  NONPRCSEN*  L  MATER 
ELEMENTS. 

NUMMfH  OF  TIMFS  fOR  SUBCASES).  C  INTCOM 

NUMBER  Of  LINFAB  FQUATION5.  MAT i ( *N5P#HAT?| •  C  IN7C0H 

number  OF  rows  less  one  L  RERAV 

NUHBFR  BY  WbJCB  COLUMNS  EXCEED  ROWS  IN  PRINCIPAL  ARRAY  L  RERAY 

maTIJ  *  MSP  *  MAT PJ*  TOTAL  NUMBER  OF  NONLINEAR  EQUATIONS.  C  INTCOM 
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NMN 

VOW 

NP 

NPR 

NRNL 

N« 

NSO(N) 

NSP 

NSPfC 

NSPM1 

NT  IMF 

NUL 

N?l 

NT 

OMfGA 

omeov 

a 

Pa <k«k<> 

pf  a .  n 

PH l If  (  \  ,K) 
PMJXPfiTJ 

P? 


NUMHFW  OF  COLUMN  VECTORS  IN  SECONDARY  ARRAY 

control  variable  used  after  rf turning  from  subroutine  out¬ 
put  (-)  when  RERUNNING  from  output  during  iterations*  0 
WHfW  CONVERGED*  *1  WHEN  NONCUNVEHGFD  AFTER  ALLOWED  NUMBER 
OF  ITERATIONS). 

NUmBF#  of  COLUMNS  in  primary  array. 

number  op  DERIVATIVE  PROPERTIES  .0  BE  EVALUATED 

nSP  ♦  1 «  NUMBER  of  reduced  nonlinear  equations. 

NUMBER  OF  sTRp  AMRJSE  STATIONS. 

NUMBER  OF  STATIONS  CONTAINED  IN  N  Th  RE610N  BOUNOEO  BY  DIS¬ 
CONTINUITIES  (Sill  CONSIDERED  A  DISCONTINUITY  IN  THIS 
DEFINITION) . 

number  OF  ELEMENTS  in  the  system,  not  including  electrons, 
number  OF  SRt-rfESi  idenmcal  to  n». 


NSP-} 

CURRENTLY  SET  TO  UNITY. 

/FRO. 

LOCAL  INUFX 

ITERATION  at  which  DIAGNOSTIC  OUIPUT  Will,  commence 

PARAMETER  OF  this  name  USEO  IN  TRANSPORT  PROPERTY  CALCU¬ 
LATIONS  iNTROntlCFp  IN  E0<4)  Of  NASA  CB-1061*  NUMERICALLY 
FOUAL  TO  1 .OT/t T/10A.7I  *•  0.1S9 

variarlF  foujvalfnceo  to  outcom  for  oimPjng  PURPOSES 

PRtSSURF. 

PARTIAL  DERIVATIVE  OF  PROPERTY  k  WITH  RESPECT  TO  LOG  T, 
l.f«i  A  A  »  LOG <*<**-?)). 

STATIC  P»FS!U.PF. 

SOURCE  TERM  for  KTH  ELEMENT  <  EQUAL  to  Z£ttQ  IN  MIXED  £QU!' 
l  IBRl HR-FPO/FN  BOUNDARY  LATER). 

nCRIVATIVF  Of  PUtK  WITH  RESPECT  10  CU. 

P(J)  IN  MfXtNf.  LFNGIH  FORMULATION. 


rA 


L  RERAY 
C  IMTCGH 

l  RERAY 
L  PROPS 
C  INTCOM- 
C  INTCOM 
C  PRMCOM 

C  INTCOM 
C  8L0C0M 
C  INTCOM 
C  INTCOM 
L  MISTXI 
L  NONCER 
L  EOUIL 
L  PROPS 

L  OUMCOM 
C  EOPCOM 
L  PROPS 

C  ED6C0M 
C  PRPCGH 

C  PRPLOM 
C  CPSCOH 
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PfO 

ptpasf 

ptm 

PTN 

PIS 

P?Nf 

PTNt 

Pitpimki 
Pfrink) 
pi  n 

pMB(HK) 

P*W|K.MK) 

P"«U! 

PMU? 

PMU* 

PNIJSOO 

PB(TI 

:*ot 

PSA 

PBC 

PBO 

psoum 

par  n  > 


1<*CALLY  OFFINEU  VARIABLE  t  :fh*H 

pwrto un  or  oampi mo  f actors.  c  •m.oco** 

P  at  "OOF.  l-l  t  T»»«t 

o  •  USED  TO  INITIALIZE  PART! At  PRESSURES.  t  ^OUll 

SAME  Afi  In  EwulL.  L  MATE* 

FR*F-<>TRfA*  STaHC  PRESSURE  C  £(K* COS 

LOo  (PIN).  L  EOOlt 

f  rtBWAPn  SaTE  -»f  of  act  I  Oft*  C  HlHCOH 

WfvFRSF  RATE  OF  BE ACT  ION.  C  KlNCO* 

Summation  VM.i»**T*MJ»  rod  ALL  CONOEnSED  SPECIES.  L  EOUIL 

NFT  FOPRAOO  MaTF  OF  REACT  I  ON.  C  KlNCO* 

«:TOfCH!0**Frmc  POOOUCT  COEFFICIENT  ON  K  TN  rase  species.  c  ktmcom 

VMI  H  •  FUJ)  SUMMED  OVC*  ALL  GASEOUS  SPECIES  I*WMUJ  *P» .  L  POORS 


VNtJI  •  MTMt.M  /  FF  <  J)  SUMMCO  OVER  ALL  SPECIES  N»  l*V*U?  *  L  *  OOPS 
PI  . 

VmUI/IF  f(,ll  •  TWOA-VNIJ)  •  FF  (J>  •  Wirt)  I  SUHMEO  OVER  ALL  L  POOPS 
SPFCTFS  a*. 

SUMMATION  VNU(J.A»  •  INUI  OVER  ALL  GASES  J.  L  m  ,TF9 

PMANOri  MimHFO.  C  pip  COM 

CONSTANT  in  TmC  POANOTL  NOM«€»  relation  ocfinino  p«  (SEE  C  STTCOM 

P*M.)UM!  . 

CONSTANT  in  Tm£  P9AMOTL  WPW€»  RELATION  0EFININ6  PR  (SET  c  ST  (C&M 
POOUM). 

constant  sw  imc  poanotl  wunsep  Elation  defining  p«  isee  c  si rco* 

WMI  . 

constant  in  im(  ppanoti  nvm kte  relation  defining  p»  (See  e  sitcom 
proumi . 

PMAMH n  H>,MH f«?  ;r  CSNSIOANEO  COU '  ‘i  IT.  .ITMEMBISE,  it  is  A  C  S'TCOM 

CONSTANT  in  Tm£  BEL  AT  f  ON/  PS-PSOUM+Pli!  A  »  T  *•  B»8*PMC*T 
A#  Pfcff',  USED  IN  «B(T|»  I  O»fI0N  !JM(.  <. 

ba Tin  or  static  Bs*ss;iw*  to  stagnation  pbfssune  ptct  c  ''p*cr** 
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PRFO  VARTahLF  OUIVALPMCFO  TO  PORTION  OF  PRPCOM  FOR  STORAGE  L  NONCER 

TRANSFER 

prf  locau  y  opr  info  variable  l  trmbl 

PRMFOV  VARTAN!?  FOUJVALFMCen  TO  PRMCOM  FOR  DUMPING  PURPOSES  L  OUMCOM 

PRMIJ(K,mi\>  PMU-WMU  (.  KINCOM 


PRP 

i'TPFOV 

PPR 

PPI 

ptml.i> 

PTFI (M) 
PV ( N.NM ) 

UA 

OB 


LOCALLY  defined  VARIABLE  RELATIVE  TO  ARRAY  OF  OFRIVATIVE  L  PROPS 
PROPERTIES  hEING  CALCULATED 

VARIABLE  FOOIVALFNCED  TO  PPPCOM  FOR  DUMPING  PURPOSES  L  OUMCOM 

ARGUMENT  REPRESENTING  PRESSURE  iL  ECUIL 

turbulent  PRANDTI.  NUMBER  c  epscom 

LOCAL  total  pressure.  C  EDGCOM 

STAGNATION  PRESSURE.  C  PRMCOM 


DERIVATIVES  OF  VMIJ3  (NN=1»,  VMU4 <NN=2» *HTIL (NN»3‘  AND  ZK(K)  L  PROPS 
<NN=?*(0  NITH  RESPECT  TO  ENTHALPY  (N*l>,  PRESSURE  <N»2> 
and  Y.  TH  ELEMENTAL  MASS  FRACTION  (N*2*K) . 

LOCALLY  DEFINED  VARIABLE  L  SLOPQ 

LOCAIIY  DEFINED  VARIABLE  L  SLOPQ 


or  I  OCALLY  DEFINE))  variable  l  slopo 

OCHFM(M)  DIFFFPFNCF  HETWEFN  DITFUSIVE  HEAT  FLUX  ANO  THAT  L  FELTRU 

CALCUlATEn  USING  CH).  FOR  HEAT-TRANSFER  COEFFICIENT 

ul  NUMBER  INTRODUCED  INTO  CALCULATION  OF  BETAM  (WHICH  DIFFERS  L  REFCON 

FOR  VARIOUS  BODY  SHAPES)  DUE  TO  CHANGE  IN  MANNER  OF  INTE¬ 
GRATION  IN  (Hf  VICINITY  OF  THE  STAGNATION  POINT  OR  LEADING 
t-OGF. 

GP(I)  MET  RADIATION  FLUX  TOWARD  THE  SURFACE  (SET  EQUAL  TO  ZERO  IN  C  PRPCOM 

HLTMp,  COMPUTED  by  SUBROUTINE  RAD  IN  RABLE) . 

US  I  OCAU.Y  OFF  INFO  VARIABLE  L  TRMBL 

UR  DIFFUSIVE  HEAT  Fl.iJX  AT  THE  WALL*  C32/C3  EVALUATFI)  AT  WALL.  C  ELXCOM 

R  LOCALLY  DF'F  I NF D  VARIABLE  L  £RP 

Rft (N )  HEAT  OF  formation  uF  MOLECULE  AT  2RS  DEG  K  FkOM  JANAE  BASE  L  INPUT 

STaTF,  CaL/MOLt.  N=1  DR  ?  FOR  LOW  AND  HIGH  TEMPERATURE  RAN¬ 
GES*  PESPFCflVFlY. 
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RADFl.  (M) 

RADNO 

RA0R<L) 

BADS(L> 
RftT| (N) 

RAT?(N) 

RATI(N) 
HAT (MK) 
RC <J,N) 

rd(j,n> 

RE(J»N) 

RED 


RFF2 

RFF3 

«FFA 

RFG? 

RFG3 

RFRAD 

NFS 

RFTA 


INCIDENT  PAOTATION  FLUX  ABSORBED  HY  THF  SURFACE  AT  STATION  C  PRMCOM 


S(l>. 

actual  nosf  raohis  ok  a  spherically  tipped  body.  c  prmcom 

ratio  of  incident  radiation  flux  absorbed  by  the  surface  to  c  prmcom 

fHF  VALUE  at  STATION  S<1).  RADFL. 

incident  oadiation  flux  absorbed  by  the  surface*  c  prmcom 

FRACTIONAI  CONTRIBUTION  DF  RHOE  UE  CM  TERM  10  DIFFUSIVE  L  FELTPU 

HF  AT  FI UX 

FRACTIONAL  CONTRIBUTION  OF  RHOE  UE  CH  TERM  10  DIFFUSIVE  L  FELTRU 
hEaT  FLUX 

ratio  of  mass  to  heat-tp  usfer  coefficients  l  feltru 


LARGEST  OF  RKP.  PKR .  PMR.  MEASURE  OF  REACTION  IMPORTANCE.  C  KINCOM 

CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F3  C  EQPCOM 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS),  N=*l  OR  2  FOR 
LOW  ANO  HIGH  TEMPERATURE  RANGES. RESPECTIVELY. 

CURVF  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F*  C  EQPCOM 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS),  N*I  OR  2  FOP 
l_OW  AND  HIGH  TEMPERATURE  RANGES.KESPECTIVELY. 

CURVE  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F5  C  EQPCOM 
DISCUSSED  IN  GROUP  12  OF  INPUT  INSTRUCTIONS).  N*l  OR  2  FOR 
LOW  AND  HIGH  T.-mpfraTURE  RANGES, RESPECTIVELY. 

REYNOLDS  NUMBER  ON  DEL  WHERE  DEL  IS  THF  Y  DIMENSION  NORMAL-  C  EPSCOM 
IZING  PARAMETER.  ALSO,  PED=VMUE (L > /ALPHAS TAR  WHERE  ALPHA- 
STAR  IS  Thf  Ft  UX  NORMAL  1 7 ING  PARAMETER  DEFINED  BY  EQ.  44  OF 


NASA  CR  1002. 

LOCALLY  OFF  I NFO  VARIABLE  L  OUTPUT 
LOCALLY  OFF I NED  VARIABLE  L  OUTPUT 
LOCALLY  DEFINED  VARIABLE  L  OUTPUT 
LOCALLY  DEFINED  v API  ABLE  L  OUTPUT 
LOCALLY  DEFINFO  VARIARLE  L  OUTPUT 
RADIATION  FLUX  FROM  WALL  L  OUTPUT 
REYNOLDS  NUMRFR  BASED  ON  DISTANCE  S.  C  OUTCOM 
LOCALLY  DEFINED  VARIABLE  L  OUTPUT 
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RFThMO 

HFTR 

KFIJ.N) 

KHO  < I ) 

HHOF  (I  ) 

RHOIMF 

RHOPIT) 

RHOVS 

RHOVW (L  « 1 ) 

RHR 

HiT 

RMMG 

RMMGS 

KMU(K.mk) 

RNOSF 

rokap(l) 

RR 

RRFO 

RRP 

RRP() 

RStG (M<) 

RSQA 

RT 


REYNOLDS  NUMBER  BASED  ON  MOMENTUM  THICKNESS 

TRAMS  FT  TOM  RFYNOI  DS  NUMBFP  BASED  ON  MOMENTUM  THICKNESS. 

C'RVF  FIT  CONSTANT  FOR  THERMODYNAMIC  DATA  (THE  QUANTITY  F6 
OtSCUSSFO  TN  GROUP  1J  OF  TNPUT  INSTRUCTIONS)*  N=1  OR  2  FOR 
LOW  AND  HIGH  TFMPFRATURE  RANGES* RESPECTIVELY. 

OFNSITY  OF  GAS  MIXTURE. 

f’FNS  TTY  OF  BOUNDARY  LAYER  EOGE  GAS. 

FREF-STRF.AM  DFNSTTY 

[lFRIVATTVF  OF  RHO  WITH  RESPECT  TO  ETA. 

-PHOVWd  .1  >/At  PdaSTaRh  St'E  NASA  CR  1062  FOR  ALPHASTaR. 
CONVFpGFD  UAluF  EOR  SURFACF  ABLATION  RATE. 

density. 

LOCALLY  DFFINFD  VARIABLE 

PaTTD  OF  MOLECULAR  WEIGHT  OBTAINED  BY  SUMMING  PARTIAL  PRLS- 
SURFS  OVFp  ALL  SPFCIES  TO  THE  MOLECULAR  WEIGHT  OBTAINED  BY 
SUMMING  OVER  GAS  PHASE  SPECIES  ONLY. 

RmmG*RMMG 

STOICHIOMETRIC  RFACTAN,  COEFFICIENT  ON  K  TH  BASE  SPECIES. 
EFFECTIVE  NOSF  RADIUS. 

1  FOR  PLANAR  ROUIFS,  LOCAL  BODY  RADIUS  FOR  AXISYMMETRIC 
HOf>  j  CS *  SPREADING  FACTOR  WHEN  USING  AXISYMMETRIC  ANALOGY 
(SFF  REFFRt'NCF  6) 

BODIES. 

DENSITY  RATIO 

LOCALLY  DFFINFD  VARIABLE 

LOCALLY  DEFINED  VARIABLE 

LOCALLY  OFF  INFO  VARIABLE 

RELATIVE  SIGNIFICANCE  OF  KINETIC  REACTION  IN  MASS  BALANCE. 
RMMGS^FFP/AA 

PERFECT  Gas  CONSTANT*  R*  TIMES  TEMPERATURE*  T. 


L  OUTPUT 
C  EPSCOM 
C  EQPCOM 

C  PRPCOM 
C  EDGCOM 
C  EDGCOM 
C  PRPCOM 
C  EPSCOM 
C  WALCOM 
L  EQUIL 
L  TRMBL 
C  EQTCOM 

L  MATER 
C  KINCOM 
C  PRMCOM 
C  PRMCOM 

L  TRMBL 
L  TRMBL 
L  TRMBL 
L  TRMBL 
C  KINCOM 
L  MATER 
L  KINET 
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S(L) 

S  (N) 
SALPH 

SB(J) 

scm 

SCT 

sn(N) 
sniiMiu ) 

SPtlM?(L» 

SPY 
SF (MS) 
SHAPE 
SHEAR 

SHIP 
SHMFI  T 


SIGMA 

SIP 

SI.  AM  (K) 
SM(J) 
SMELT 
SO(N.I.K) 

SPFASF 

SPD(N) 


STRFAMWISF  COnWDTMAfE  ALONG  BODY. 

LARGFST  CONTRIBUTION  TO  TERM  IN  N  TH  COLUMN. 

SIGNED  VALUE  OF  AL.PH 
fntropy. 

PFFFRFNCE  SCHMIDT  NUMRER.  SEt  LQ(46>  OF  NASA  CR-1062. 
TURHULFNT  SCHMIDT  NUMRER 

RATIO  of  residual  TERM  IN  N  TH  COLUMN  TO  S(N). 

variable  of  INTEGRATION  IN  CALCULATION  OF  XI  IN  REFCONt 
TFMPORAPY  STORAGE  AREA  IN  OTHER  ROUTINES. 

VARIABLE  OF  INTEGRATION  IN  CALCULATION  OF  FW  IN  REFCON. 
TFMPOHARY  sroRAGF  AREA  IN  OTHER  ROUTINES. 

LOCALLY  DEFINED  VARIARLE 

STHFAMFUNCTION  in  entropy  layer  table 

OFL.ST/THMOM.  shape  factor. 

WALL  SHEAR  GIVEN  RY  CAPC(1)/ALPH  *  VMUE(IS)  *  UE(IS)/C89  * 

e(3.::/3?.i74o 

% 

SAVFD  VALUE  OF  INPUT  ENTHALPY. 

ENTHALPY  OR  ENTROPY  OF  FUSION  OF  A  SPECIES  IF  TEMPERATURE 
EQUALS  FUSION  TEMPERATURE  OF  THAT  SPECIES. 

COLLISION  CROSS  SECTION  FOR  REFERENCE  SPECIES 

ENTROPY  INPUT. 

DEFINED  RY  EO(Rl)  OF  NASA  CR-I064. 

FNTPOPY  OF  FUSION. 

SM(J)  IF  J  TH  SPFCIES  IS  CHANGING  PHASE t  OTHERWISE  0. 

ELEMENTAL  MASS  FRACTION  (N=l )  AND  ITS  DERIVATIVES  OF  ORDER 
N-l  WITH  RESPFCT  TO  ETA. 

SAVED  VALUE  OF  PIFASE 

U1  *  SP(M,I,K)  *  D?  *  MSP ( I »N»K)  FC^  N-l  THROUGH  3.  DI  * 

SP ( 3. 1-1 «K )  *  02  *  HSP(I-1,3.K)  FOR  N«4. 


L  RERAY 
L  TRMBL 
C  EQTCOM 
C  PRPCOM 
C  EPSCOM 
L  RERAY 
C  TEMCOM 

C  TEMCOM 

L  TRMBL 
C  EOGCOM 
C  OUTCOM 
C  OUTCOM 

L  EQUIL 
L  MATER 

C  EQTCOM 
C  EQTCOM 
C  EQTCOM 
C  EQPCOM 
C  EQTCOM 
C  VARCOM 

L  EQUIL 
L  HISTXI 
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T  C  ( J ) 

TCW 

TF<L> 

tfmfov 

TFI.t) 

tfmax 

TFZ 

thcond 

THELFMIK) 

thengy 

THMOM 

TIMO 

timeim) 

TION 

TITL<N) 

TK (K.N) 

TM 

TMAX 

tmin 

TMU3 

TP 

TOIK.N) 


-0  LOG  /  0  LOG  T  FOR  FORMATION  REACTION  OF  J  TH  SPECIES  C  EQTCOM 


TC  EVALUATED  AT  THE  WALL  FOR  THE  (ISP)TH  ELEMENT.  C  NONCOM 

TFMPFRATURF  AT  BOUNDARY  LAYER  EDGE.  C  EDGCOM 

VaRIAHLF  FOUIVaLFNCEO  TO  TEMCOM  FOR  (JUMPING  PURPOSES  L  DUMCOM 

FAIL  TEMPERATURE  OF  SPECIE'S  J.  E  EQPCOM 

maximum  fail  temperature  of  candidate  surface  species.  l  input 

surface  TEMPERATURE  to  which  convergence  is  temporarily  at-  c  bumcom 
TEMPTED  DUPING  ENERGY  BALANCE  PROBLEMS  USING  KR(9>»6. 

ENTHALPY  THICKNESS  L  OUTPUT 

MASS  THICKNESSES  GIVEN  BY  OU2 (K)/DUM(K)  WHERE  DUZ(K)  IS  THE  L  OUTPUT 
SUMMATION  OV£m  Kk  OF  C89/ALPH  *  C (E ( 1 »NETA > -F ( 1  *  1 > I  * 


SP(1 .NFTA,KK)-XSP(S»KK) )/  WTM(KK)  *  CIJlK.KK)  AND  DUM(K)  IS 
THF  SUMMATION  OVER  KK  OF  (SPC1.NETA.KK>-SP(1*1»KK)/WTM(KK) 

*  CTJIK.KK) . 

FNtRGY  THICKNESS  GIVEN  BY  C89/AI.PH  *  ( (F  (1  ,NETA»-F  ( 1 , 1 )  )  C  OUTCOM 

•  G ( 1 tNFT  A)-XG(S) ) / (G  ( l »NETA) -G ( 1 • 1 ) ) 

MOMENTUM  THICKNESS  t-kVEN  BY  C89/ALPH  *  ( (F ( 1 tNETA ) -F ( 1 « 1 ) )  C  OUTCOM 


-XM(5)/Al.PH) 

REAL  ELAPSFO  TIME  SINCE  BEGINNING  OF  SOLUTION  L  HERAT 

TIMF  (OR  SUBCASE)  C  PRMCOM 

TEMPERATURE  BELOW  WHICH  IONIZATION  WILL  RE  SUPPRESSED  L  EQUIL 

TYPE  OF  AVFPAGING  EMPLOYED  TO  CMK(N)  L  FELTRU 

GWAM  ATOMS  OF  ELEMENT  K  PER  UNIT  MASS  OF  COMPONENT  N.  C  EQPCO 

MAXIMUM  OR  MINIMUM  TEMPERATURE  IF  DELTA  T  IS  POSITIVE  OR  L  CRECT 

NEGATIVF.  RESPECTIVELY. 

MAXIMUM  TFMPtHATURF  ALLOWED  FOR  CURRENT  ITERATION.  C  EQTCOM 

MINIMUM  rFMPERAruPF  ALLOWED  FOR  CURRENT  ITERATION.  C  EQTCOM 

V M ( J )  /  FF( J)  SUMMFO  OVER  ALL  SPECIES  N*.  <«VMU3  •  VMU2  •  l  PROPS 

P) . 

GFRIVATIVF  OF  T  *ITH  RESPECT  TO  ETA.  C  RRPCOM 


GRAM  ATOMS  OF  MASF  SPEJ'ES  K  PER  UNIT  MASS  OF  COMPJNENT  N.  C  EQPCOM 
SFE  WIN)  FOR  DEFINITION  OF  COMPONENTS 
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TPFF 

is 

t  T  ( I ) 
f  T MAX 
r  tm  in 
rrvc 
mu. !\|) 

Tver  ns) 
TWU..1  ) 
rwc  tn' 

UF  0.) 
UFOGF 

UGH 
UTNF 
UKAP 
UM(K.K*> 
UNf  r  'M 

UN  I  1  (N> 

V 

VA 

VARFOV 

VR 

vr 


GROUP  OF  TERM*  which  APPEARS  IN  DERIVATIVE'S  OF  PI.  C  EPSCOM 

(HFYNULI)S  NUMBER  ON  OELST ) /C?6/ ( 2 .  *CAPC  (II  **2*Y  AP*«2*PI )  . 


PHASE  CHANRF.  TEMPERATURE.  L  INPUT 

STATIC  TEMPERATURE  IN  OEG  R.  IDENTICAL  TO  T*.  C  PRPCOM 

MAXIMUM  TFMPFRAIURF  ALLOWED  FOR  IHIS  SOLUTION.  C  EQTCOM 

minimum  TEMPERATURE  ALLOWED  FOR  THIS  SOLUTION.  C  EQTCOM 

VAR  I  API F  T  USED  TN  TRANSVERSE  CURVATURE  CALCULATIONS  C  ED6C0M 

impfr  tfmrf mature  of  temperature  range  for  inputting  c  eqpcom 


TuFRMOnVNAMlC  PROPERTY  OATA  FOR  SPECIES  J.  N»1  OR  2  OR 
I OWFP  ANO  UPPER  TEMPERATURE  RANGES.  RESPECTIVELY. 


TO ySTANr  i IS P 0  IN  T VC  CALCULATIONS  C  EOGCOM 

CONVFRGFll  VAIUF  of  surface  temperature,  c  walcom 

BASE  TEMPp PA  TUPfc  USED  IN  HE aT-TRANSFER-COFFF ICIENT  L  FELTRU 

CAl.CUl  AT  TO'-' 

POUNDAPY-l  A YFR  EDGE  VELOCITY,  C  EDGCOM 

PARAMETER  ENTERING  INTO  FNTROPY  LAYER  OPTION,  SEE  EQI68)  OF  C  EOGCOM 
NASA  CR-tOfti*  (SET  EQUAL  TO  UNITY  IN  PRESENT  PROGRAM). 

NORMALIZING  FACTOR  IN  GAUSSIAN  ELIMINATION.  L  INPUT 

TREE-STREAM  VR0C1TY  C  EDGCOM 

FDGE  VELOCITY  NURMALI7ED  8Y  RFFERENCE  VELOCITY  L  NONCER 

MOLECULES  OF  RASE  SPECIES  K  IN  ELEMENT  K*.  .  INPUT 

COMPLEX  FACTOR  HAVING  TO  00  WITH  DAMPING  OF  KINCTICALLY  c  KINCOM 

CONTROL l Fn  MASS  BALANCES. 

SMOOTHING  FACTOR  RELATED  TO  IMPOSING  RESIDUAL  ERROR  INTO  L  KINET 
RFACTIVF  mass  BALANCES  AS  a  RESULT  of  ROUNDARY  LATER  DAMP¬ 
ING, 


lOCAHY  OFF  INFO  VARIAHLF  L  INPUT 

l  OCALI  Y  OFF  INFO  VARIABLE  {VARIOUS  ROUTINES) 

VARIABLE  EOUIVALPNCEO  TO  VAWCOM  FOR  DUMPING  PURPOSES  L  OUMCOM 

l. 01  ALLY  UFFlNF.)  VARIABLE  (VARIOUS  ROUTINES) 

LOCALLY  OFF  Info  V AP I ABLE  (VARIOUS  ROUTINES) 
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loCAII.Y  aFPlMFO  VARIARLE  (VARIOUS  ROUTINES) 
I  DCALI  Y  OFElMFI)  VARIABLE  (VARIOUS  ROUTINES) 


VFL  vf |  OCTTV. 

VFLSO  SOtiARr  OF' VELOCITY. 

VlNT  P  * 

V  IKWOO  OHFUSTVF  MASS  FLUX  OF  RASE  SPtCIES  AT  THE  WALL*  CK6(K)/C3 

FvAI.MATEO  a  t  THE  wall  <tn  OUTPUT.  V  JKW  (K )  IS  MOOIFIED  TO 
REPRESENT  OiFFUSTVF  MASS  FLUXES  OF  ELEMENTS  AT  THE  WALL. 

V*  no  SPU.I.K) 

VKAP  MAT,  row  HOMY  SHaPF  (0  FOR  PLANA1..  )  FOR  AX  1 SYMME  TRIC )  • 

VKi  LOCALLY  DFEINEU  VARIABLF 

VK?  I  00 ALLY  OLFIMfi)  VARIABLE 

VK1  LOCALLY  OFF f NFM  VARIABLE 

VI. AM  MIXTURY  Thermal  CONOUCTIVITY  GIVEN  BY  RMO(I)  •  OHAR  *  VMU6 

*  1.QR09  /  IwM  *  VMUI). 

VI  AM(J.K)  I  amhOA.  DFFINEO  IN  EU<83»  OF  NASA  CR-1064 

VLNMJ)  100  KP  FOP  FORMATION  REACTION  OF  J  fH  SPFCIES 

VI  NKW  O.No  FVALUAIFO  AT  THE  WALL  FOR  THE  (ISP)TH  ELEMENT. 

VMAt.'H  k'ACw  MilMHFP 

VM40H  MACM  I.UMHFO. 

VMATfN)  SF T  Or  VAGARIES  STARTING  WIT*  Cl  TO  BE  STORED  ON  TAPE. 

VMCCH  SURFACE  mass  LOSS  RATE  OUf  TO  LIOUIO  LAYER  FLOW 

vwum  viscosity  of  mixture,  computed  in  subroutine  props  as 

RHOffi  *  OftAP  •  VNUS/VMUJ 

VMUi  COEFFICIENT  mih  OFF  INFO  IN  CQ(?2)  OF  NASA  CM-106?. 

VMUP  SAME  AS  VRU2  IN  PROPS. 

vmu?  COtFFICIFNl  -Ui»  OfF  INFO  IN  EW<2?>  OF  NASA  CR-10A2. 

VM!M  PROPERTY  OF  The  GAS  MIXTURE  WHICH  REDUCES  TU  I/WM  FOR  EQUAL 

njFrnsjoN  cuEEFtriFNis.  sff  eouai  of  nasa  cr-ios? 


L  EQUIL 
L  EQUIL 
L  INPUT 
C  FLXCOM 


L  PROPS 
C  PRKCOH 
L  KINET 
L  KINET 
L  KINET 
I.  PROPS 


E  NONCOM 
C  EQTCOM 
C  NONCOM 

L  EQUIL 
L  STATE 
E  HI SCON 
L  OUTPUT 
C  PRPCOM 


L  PROPS 
L  HATER 
L  PROPS 
C  PRPCOM 
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V'MUTF 

VMII4P 

VmUS 

VMlJh 

VM(IA 

VMUH 

Vmiic 

VMll|) 

VM,|£<(  ) 

KMWIU 

VMrfF 

VM  ( J) 

VNU  («/*<» 

VVOL 
w  IN) 

WALFOV 
WALl  .Jf< » 

WAL»  0 

wau.O.HN) 

WATHO 

wn? 


OFRTVATIVf  I»r  VK'T  with  RESPECT  Jo  ETA.  c  PRPCOM 

DERIVATIVE  or  VMII4  WITH  PESPECT  TO  ETA.  C  PRPCOM 

CONTRIBUTION  to  MIXTURE  VISCOSITY  GIVEN  HY  AMU5  *  RMM6/AA.  L  PROPS 

oonTRI RU1 JOW  TO  MIXTURE  THERMAL  CONDUCTIVITY  GIVEN  RY  (PMU6  L  PROPS 

♦  CPTTI /1 .9869-?. S  *  TMU3)  /  P 

PRODUCT  Of  THF  Two  CuEFFICIEnTS  MU1  ANO  MU2  OEFINEO  IN  EQ  C  PRPCOM 
<?2>  or  MAS A  CR-IOR? 

CONSTANT  fM  The  VISCOSITY  RELATION  MU*IVMUA<*T»*VMUR)/IVMUC*  C  STTCOM 


T*VMU0)  *  ilSEO  IN  KR 1 7 ) ■ l  OPTION  ONLY 

CONSTANT  IN  TmE  VISCOSITY  RELATION  OEFINEO  UNDER  VMUA.  C  STTCOM 

CONSTANT  in  The  VISCOSITY  RELAIION  OEF1NFO  UNOEP  VMUA.  C  STTCOM 

CONSTANT  IN  IMF  V!SCO«!'tY  RELATION  DEFINED  UNOEP  VMUA.  C  STTCOM 

VISCOSITY  AT  moUNDARY  LAYER  EDGE.  C  EOGCOM 

mdlfcoi AR  WEIGHT  OF  TmE  MIXTURE.  C  PRPCOM 

MOLECULAR  WEIGHT  of  GAS  AT  HUUNOAkY  LAYER  EDGE.  C  EDGC3M 

RARTTAl  PRESSURE.  C  eopcom 

SIOICHlO^TRIr  COEFFICIENT  ON  K  IH  BASE  SPECIES  IN  FORMA-*  C  EOPCOM 

7  ION  OF  .1  IH  SPECIES. 

IOCAILY  off  info  VARIABLE  L  REFCON 

component  mass  flux  at  wall*  win  is  f.dgf  gas*  wi?)  is  py-  c  blocom 

joly«;is  has*  WIT)  is  CHAR 

VARIABLE  fqui valenceo  to  walcom  for  dumping  PURPOSES  L  OUMCOM 


NORMAL  I  zm  it  I  FEUS  I  VC  MASS  flux  at  wall  (DEFINED  BY  CO  (At)  C  FLXCOM 

OF  NASA  fp-l'*/).  CK6IK)  EVALUATED  AT  THE  WALL 

NOVMAL’7F>  DIFFUSIVE  HEAT  flux  AT  the  WALL  IOCFINEO  by  EO  C  FLXCOM 
(SO)  0»  NASA  CHitAA?).  CT?  evaluateo  at  the  wall 


Gl.CRAt.  $FT  0)  WALLO  ANO  WALLJ.  E  FLXCOM 

ATu*IC  WEIGHT.  C  EOPCOM 

\,?  *  A I  STAR  /  PmuI  <-  P®OPS 

0./«A  •  wn?  L  PROPS 
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mos 

*07 

wr>8 

*r>r>T 

ROZ 

MM 

MS 

MSUM 

MT 

mtc, 

*TL 
mTm( j) 

X  CN> 

XI 
X0 

XG(N) 

Dili 

XtCONIL) 

A. I 
XK 
*K* 

anin) 

xor 


0.3?  *  AISTAR  /  PMtll 
MOZ/PMUl  -  *0? 

W04/PMIM-W05 

A«LATir»N  PATt  IN  Th£  CONVERGED  SOLUTION  Of  MATERIAL  CON¬ 
SIDERED  UNDER  KHIRt  ■  3  THROUGH  6 

CONSTANT  1.38*;  WHICH  PNTFRS  INTO  calculation  OF  mixture 
transport  properties. 

MOL ECU!  *0  WEIGHT  OF  MIXTURE . 

SUM  OF  PTROLTSIS  anQ  CHAR  MASS  RATES. 

Mil)  *  W(?»  •  MO) 

MOLECULAR  MEIghT  as  SUHMfO. 

PRESSURE  *  GAS  MOLECULAR  WEIGHT . 

SUMMATION  OF  VMj)  •  mTMI.JJ  FOR  ALL  CONDENSEO  SPECIES. 
MOLECULAR  MFIC.HT  OF  SPECIES  J. 

CORRECTIONS  OF  NONLINEAR  VARIAHLES  IN  CHEMISTRY  SOLUTION. 
OAMPFO  WALUF  OF  OELTA  LN  T„ 

locally  off  info  variarle 

GEF  InFO  Ay  tu{*6)  OF  NASA  CR-1062  EVALUATEO  FOR  P-GU.I). 

N*  I  TO  A,  mu'y)  IS  TMf  INTEGRAL  OF  (F  <2.  I )  *G  ( 1  •  I  >  *0€TA) 
GIVEN  PY  EO  05)  . 

TPAMSFORMfO  STRFAMMISE  COORDINATE  DEFINED  RY  EQSI3I)  AND 
mi  or  nasa  cr-ics? 

INTFftRANO  in  calculation  or  X!  in  refcon.  TEMPORARY  STORAGE 
AREA  IN  OTHER  ROUTINES. 

locally  orriMru  variarle 

LOCALLY  OtriMfO  VARIABLE 
LOCAILY  OFFINEO  VARIABLE 

defined  »v  foi*«i  or  nasa  c*-ie%?  evalua teo  for  p*ri?,ji. 

N.  1  TO  *.  *M(S)  IS  THE  INTEGRAL  Of  IF  I?. H *F I?. I ) »OETA) 
c.ivfm  By  FOIm^J 


L  PROPS 
L  PROPS 
L  PROPS 
C  BUMCOM 

L  PROPS 

C  EQPCOM 
L  MATER 
L  MONGER 
L  INPUT 
L  MATER 
L  MATER 
C  E OP CON 
E  EOTCOM 
L  CRCCT 
L  SLOPO 
C  COECON 

C  MI SCON 

C  tehcon 

L  NATS1 
L  HATS! 

L  HATSI 
C  COECON 


locally  orriNCO  variarle 


L  SLOPO 
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AOTT 

AS 

ASP  (N**0 

AT 

ATO 

ATT 

Ul) 

III) 

YAP 

YC 

YOI 

YOfQ 

moo 

yds 

yint 

YS 

TW(K) 

/ 

*r,(N,p 

**(*! 

***(»» 


I  OCALLY  OFF  I NFl'  VARIABLE  L  SLOPO 

i  ocai.cy  off  info  variable  l  matsi 

OFFInEO  flv  £0(06)  OF  NASA  CR-IO61?  EVALUATED  FOR  P»SP(1#I.K>  C  CuECON 
f'«;  TO  *.  ASH(S.S)  IS  THF  INTEGRAL  OF  (F <2»I > *$P< 1  *  I *K> 

•< if  T  4 1  AIyFN  RY  FU(BN> 

LOCALLY  RTF  INFO  VARIABLE  L  A8MAX 

IOC Ally  off  info  variable  L  SLOPO 

LOCALLY  DFFINFO  VARIABLE  L  SLOPO 

ACTUAL  DISTANCE  FROM  BODY  MEASURED  NORMAL  TO  SURFACE#  C  OUTCOM 

natural  ioc,  of  partial  pressure  «*o  for  present  conoensed  c  eopcom 

SPECIFSI.  IDFnTICAL  TO  7YY(J>* 

CONSTANT  IN  MIXING  LENGTH  EQUATION.  C  EPSCON 

INITIAL  VALUE  of  Y(J»  l  input 

locally  OFF  info  variable  l  trmrl 

locally  offinfd  variable  l  trhbl 

iocally  offineu  variable  l  trhbl 

LOCALLY  OFF  INFO  VARIABLE  L  TRHBL 

AI.OMVINT)  L  INPUT 


LOCALLY  OFFINro  VARIABLE  L  SLOPO 

value  OF  Y YY ( J)  AT  NALL  (SAVED!  C  EOPCOM 

STATIC  temperature  Jn  DEC*  *»  IDENTICAL  TO  T».  C  EOPCOM 

OfEtNEO  «Y  EQ (94)  OF  NASA  CR>1AS?  EVALUATEO  FOR  P*0 ( 1 . I ) .  C  MISCOM 
M  •  I  TO  4 


OAIAMTITY  FOB  FLEMEnT  nr  NhICH  IS  1NTROOUCCO  AS  A  RESULT  OF  e  PRPCON 
rwF  APPROXIMATION  FOM  BINARY  DIFFUSION  COEFFICIENTS  A  NO 
RFtJUCES  T n  SP(i.t.K)  EfW  fO'iAL  DIFFUSION  COEFFICIENTS  (SEE 
FUt»S*  OF  NASA  CR-I0A?! 

OFrfJ*#T I Vf  0*  ?«  *|T«  PFSPCCT  IQ  eta.  C  PRPCOM 

OFF  INCH  a*  E0<9*}  Of  NASA  C»- 1  *4*  EVALUATEO  FOR  P»Fl2,n,  c  MISCOM 
M  »  l  TO  *. 
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SECTION  III 

LISTING  OP  FORTRAN  V  SOURCE  DECKS 

Listings  of  Fortran  V  source  code  decks  for  BLIMP  are  presented  in  this 
section.  The  various  subroutines  are  listed  numerically  in  terms  of  their 
file  code  names. 


File  Code  Name 

Routine 

Page 

BC1A 

DUMCOM 

73 

BO  2  A 

BLIMP 

74 

B03A 

SETUP 

75 

B04A 

HERAT 

77 

B05B 

NONCER 

79 

B05C 

RNLCER 

87 

B06A 

LINCER 

91 

B07A 

REFCON 

93 

B08B 

ICOEFF 

99 

B09A 

RECASE 

101 

B10A 

HISTXI 

104 

BllA 

OUTPUT 

106 

BllB 

FELTRU 

111 

B12B 

IMONE 

117 

B13B 

I  ONLY 

121 

B14A 

STATE 

123 

B14B 

STATEN 

126 

B15B 

RERAY 

127 

B16A 

SLOPQ 

130 

B17A 

ABMAX 

131 

B18A 

MATS1 

131 

B18B 

MATS  2 

133 

B19A 

TRMBL 

133 

B19T 

TRANCR 

138 

B20A 

EQUJ.L 

141 

B21A 

THERM 

151 

B22A 

MATER 

153 

B23A 

CRECT 

162 

INPUT 

165 

B2SA 

PROPS 

172 

B26A 

TAYLOR 

177 

B27A 

LINMAT 

178 

B28A 

KINET 

179 

B29A 

FIRSTG 

183 

B30A 

ERP 

185 

B30B 

ETIMEF 

185 

B30C 

LIAD 

186 

B30D 

TLEFT 

186 

B30E 

DATE 

186 

B30F 

TOD 

186 

B36A 

OGLE 

186 

72 
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1  C801A  801A  001 

2  SUBROUTINE  DUMCOMdCiO  B01A  002 

3  CONMON/BLQCOH/  NOA<  71),  MOB (  711 »N >P£C»FR C  71 ,15)  ,H  (3) ,  LEF  (10)  B01A  3 

4  1  ,IEFSU0>,PIEASE,1£FM(10>  ,L2,L3  ENTR-MOO 

5  COMMON/BUMCOM.'  8UMP, CORMA,EASE»ICORM, MOOT, TFZ, 1777, DTEMP, KIP, IXB01A  5 

6  COHMON/COECOM/  C5,C6,C7,C8,C9,Cl0,Cll,Cl2,Cl3,Cl4,Ci5B0lA 

7  ltCl6,Cl7,C18,Ut9,C20,C21,G22,C23,C24,C25,C2E,C?7,C28,C29,C30,C2.1'301A 

8  232,C33,C34,C35,C36,C37,C38,C39,C40,C41,C42,C43,C44,C45,C46,C47,C<^B0lA 

9  3,C49,C50,C51,C52,C53,C54,C55,C56,C57,C58,C59,C50,C61fC62,C63,C64,;,eOiA 

10  465,C66»C67fC68,C69,C70,C7l,C72,C73,G74.C75,C76,C77,C78fC79,C80,C81B0lA 

11  5,C02,C83,C84,C85,C86,C37,C88  B01A 

12  CQMHON/OOECON/  CK1 (  8),CK2(  0),CK3(  8),CK4(  8) ,CK5(  6),CK6(  8)  B01A 

13  1 , CK7 (  81 ,CK8(  8>,CK9(  8),CK10(  8>,CKU<  8>,CK12(  3>,CK13<  8)  B01A 

14  2«CK14(  8) « CK15  (  8>,CK16(  8) ,CKl7(  8) ,CKi8 (  8) ,CK19(  8J ,CK20*  8)  B01A 

15  3«CK21 (  8) ,CK22(  8),CKK1(  8,  0),CKK2(  8,  8) ,XM(5> , XG(5)  , XSP(5,  9)  B01A 

16  4,CKK3 (  8,  8)  B01A 

17  COMMON/CR8COH/WCARB,EMIS,STEF  ,ADUH, BOUM, COUM, HTEF»HNAT,EMISC»EMIST  B01A 

18  1,HPG,ASU(3),B$U(3),HPYG(3),HCHAR(3),EMIV(3),KS(40),ISU  B01A 

19  COHMON/EDCCOH/  PEUO,  1»,PTEC40,  1>,SPE(  8,40,  1>,OUES,B01A 

20  1UE (401 , RHOE (40 ) ,  VMUE  (4  0) ,  TE  (40) , UEO&E, DUEOGE, 02UE0G, VMWE,CGE,C90  ENTR-MOO 

21  2, OSIP (40) ylOSIP, TTVCyTVCC (40) »HEA(401  ,SF(20) ; CS (20) ,CSPR( 20 ) ,  ENTR-MOO 

22  3CG(20),CGP(20)  , SREFyGEPyNENyUINFyRHCINFyHINF, PINF 

23  CONMON/EPSCOH/ELCON, YAPyCLNUMySCTyPRT , RED, DVS,RHOVS,PI,PIM,CLy 

24  1  EPSA(15),EPS1,EL(15),0PI(15,2),0EPC,TREF,RETR,VINTR(15) 

25  COMMON/EQPCOH/  RB (  71,2),RC(  71,2),RD(  71,2) ,RE(  7l,2),RF(  71,2), B01A 

26  1  TU(  7l,2),FF(  71),FFA,IFC(  7l),ATA(10),ATB(10),ATC(10) ,NAT(10> ,  B01A 

27  2  KAT(IQ) ,IR(10> ,IZy KZ(IO) ,  LANI (  71),P,Z,TK(10,  7),VN(  71),  B01A 

28  3  VNU(  71,10) ,ITFFyKR2yHCH,NCVyHH,HTM(  7l),YYY(  71) ,YH(  7l),GG(  7l) B01A 

29  4  , TQ (1 0 ,  7) yEPOVRK, SIGMAyBASNOl  B01A 

30  COMMON/EOTCOM/SIP,HIP,EEL,EENI,FLIQ,CPF,IRE,IER,AA,IITS,IN,IL,IIT,B01A 

31  1  HO0E,HMELT,SMELT,TMAX, THIN, MELT, SUMN,SUHL,HS,HSS,BX,ISP2,ISP0,  B01A 

32  2  ISP,KKJ,SVA,SV8,SVC,SV0,SUNC»FFF,CHF,EP,RV,IFCJC,HTG,HTL,JC,HHG,  BOlA 

33  3  CCPG,TTMIN,TTMAX, L7 ,L8,XB(11) ,EB(10) ,EBL(10) ,A(16,16)  ,98(16) ,  ENTR-MOD 

34  4  IP(  7 1) , ALP( 1 0) ,FNU(1 0) yGANH (10) yOAMF (10) ySL AM (10) ,DY (  7l),RVS,  B31A  33 

35  5  CP(  71) ,HH(  71) ,SB (  71),TC(  71),VLNK(  71), E(  71),PNUS(10> , 

36  6  8C(10),BLNK(10) ,BY(10) ,IBC(10) ,BE(10) ,JZ(  4) 

37  COMMON/ERRCOM/FLE(  43) ,GLE  (30) ,SPLE(30,  8) ,ELA(313) ,FLEM,  GLFM 

38  1,SPLEM(  8),ELH(14),ELMM,IFLM,IGLM,ISPLM(  8) ,NELM,ILMM,OFL (43) 

39  2,DGL(30) , DSPL (30,  8) ,FNLE(18) ,GNLE(15) ,SPNLE(15,  8),ENL(153) 

40  3 , FNLEN , GNLEM, SPNLEM (  8),  ENLMM, IFNLM, IGNLM, ISPNLH (  8) 

41  4,NENLM,INLMM,OFNL(18),OGNl(15),OSPNL(15,  8),DRNL(10) 

42  C0MM0N/ETAC0M/ETAU5)  ,0ETA(15)  ,OSQ(14)  ,DCU(14>  ,B1  (14) ,B2(  14) 

43  1,LAR(153) ,BA1(43,18) ,8A2(30,15) 

44  C0MM0N/FLPC0M/TXI(2),TUEt2),TRH0E(2)yTTE(2)yTVMUE(2>,TMAT(566,2) 

45  2,THF(15,2) »LEFT (10,2) ,TPE(2) ,TRACS(2) , TDSIP (2) ,KQT(2) 

46  COMMON/FLXCOM/OELQHyOELJNC  8) ,DQNL(153) ,DJNl(l53,  8) , MALLQ 

47  1»NAUJ(  8) , QW, VJKW (  9) , TPNALL 

48  COHNON/HISCON/C1 ,C2,C3,C4, ALPHO,BETA,ZM(4, 14) ,ZG(4,14)  ,ZSP(4,14,  8B01A 

49  1  ),XI(40),HF(15,5),HG(15,3),HSP(15,3,  0) ,HALPH,HUE,HHUE,HFH,0LX2  B01A 

50  2vC3H(40),BETAH(40)  B01A 

51  COMMON /INTCOM,  KR(20) ,KIN,KCUT,NAT1I,HAT2I,MAT1J,MAT2J,NETA,I,I$,NB01A 

52  lSylTyNTIMEyNSPyNSPMlyMAMyNLEQyNNLEQ, NRNL,  ITS, KAPPA, SB  AR,  CASE ( 15)  e01A 

53  2,8(8),  HME, NON, K0(10) , ITEM, NITEH,KR17,NBT,NBT2,IDENT,KR9(40)  BOlA 

54  3,KAUXO,JTIME,JSPEC,MO(3),IU,ISH  ENTR-MOO 

55  COMMON/KINCOM/MT,FKF(.\O>,EAK(iO),EXK(lO),PMU(10,lO>,RNU(lO,iO> ,  BO  1 A  54 

56  1  OKPT( 10) »PKP( 10), PKRt 10) , RAT(IO) ,RSIG(10) ,MA (10) ,LL (10)  ,  PMR(IO) ,  BOlA 

57  2  PRMU (10,10) , EESE(IO)  B01A 

58  C0MM0N/N0NC0M/AM(153,153>, 0VNL1153)  ,TCM,  BOlA 


6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 
19 


ENTR-MOO 
BOlA  22 
ENTR-MOD 

24 

25 

26 

27 

28 

29 

30 

31 


BOlA 

301A 

BOlA 

BOlA 

BOlA 

BOlA 

BOlA 

BOlA 

BOlA 

BOlA 

801A 

BOlA 

BOlA 


34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 


55 

56 

57 
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59 

60 
61 
62 

63 

64 

65 

66 
67 
£S 

69 

70 

71 

72 

73 

74 

75 

76 

77 
73 
79 
81! 
01 
02 
03 
04 
05 
06 
07 
00 
09 

90 

91 

92 

93 

94 

95 

96 

97 
90 
99 

100 

101 

102 

103 

104 

105 

106 
107 
106 

109 

110 
111 
112 

113 

114 

115 
H6 


1 VLNKN ,0LPH (  9>,DLPK<  0,  9) ,OTHW,DTKW<  0>,FLUXJB<  9)  BOlA  50 

C0MM0N/0UTC0M/Y(l5>, RES, OElST,THENGY,THMOM,CH, BLOW, SHEAR, CF, SHAPE  B01A  59 
1  , CM (  9) ,THELEM (  9)  BOlA  60 

COMMON/PRNCOM/TIME (  501 ,PRE <40> ,PT£T C  30),GEC  50) ,S(40) ,ROKAP(40)  B01A  61 
1,RNOSE,VKAP,NDISC,IOISC(40),NSD(10),MSD(10),ITF(  50) ,IPRE»RAONO,  B01A  62 
2CONE,RADFL (  aQ> ,RADR(40) ,RACS(40> »IRAO  BOlA  63 

C0HN0N/PRPC0N/PRC15) ,T  Il5) ,RHO (IS) , SC (15) , CAPC(i5> ,QR(15)  ,H(15)  BOlA  64 


1 ,CPBAR(15) , VMH< 15) ,PHIK(15 ,  8) ,ORHOH,DRHOK (  0),ZK(  0),OZKHC  0),  DB01A  65 
2MU3K(  0) , DMU4K (  0),QTK<  0) ,OPHIKH(  0),OPRK(  0>,OSCK(  0),OCAPCK(  0) BOlA  66 
3,OHTILK (  e),OQRK(  0),DCP8:<(  8),DCPTK(  0>,DMU12K(  3),DZ«t  0,  B>  BOlA  67 

4, DPHIKK(  0,  0),  0MU4H,0MU3H,DHTILH,VHU12,CT,CTR,CPTIL,HTIL  eOlA  60 

5, VMll3,0TH,OCAPCH,OPRH,DSCH,OQRH,DCPBH,OCPTH,OMUi2H,VMU(15) ,  RHOP  BOlA  69 
6(15),PHIKP(15) ,HP,TP,ZKP<  8>,VMU3P, VHU4P,HTILP,CRH0(14> ,GMR(15)  BOlA  70 

COHMON/STTCOH/GAMl , PROUM, PRA, PRB, PRC , PRD, VMUA , VMU8»VMUC, VMUD»NC»  BOlA  7l 


1  FLD(6,3) ,  VMWD  BOlA  72 

COMMOM/TEMCOH/SPDUHC  0) ,OER  (40) , OUMMl ( 15) , SLOPE (15) »REDUM< 15)  BOlA  73 

1,SOUM1{4O),SOUM2(4Q),FW0L'M{4Q),XICON(4O>,FWCON(4O),FWINIT(  1)  BOlA  74 

2,XIINIT(  l),nUDS(  40)  BOlA  75 

COMNON/VARCOM/F (4, 15),G(3,15I,SP(3,15,  9),ALPH  BOlA  76 

COMMON/ WALCOH/FW (40  »  D,TH(40,  1),HW(40,  1),SPH(  0,40,  1)  BOlA  77 

1 ,RHOVH (40,  1) , FLUX  J (  3,40,  1) , IHN,ITW, IFN, ISPN, IRHOVM,  IFLUX J  BOlA  70 


EQUIVALENCE  (FLPEQV,TXI) , (BLQEQV, MOA) , (BUMECV,BUMP> ,(C0EEQV,C5) , 

1 (CONE QV, CXI) , (CRBEQV.HCARB) , (EDGEQV ,PE) , (EQPEQV.RB) , (EPSEQV,ELCON) 

2, (KINEQV,MT), (EQTEQV,SIP) , (ERREGV,FLE> , (ETAEQV,£TA> , (HISEQV, Cl> , 

3  (INTEQV,KINI , (NONEQV, AM) , (PRMEQV, TIME) , (PRPEQV,PR> , (STTEQV,GAM1) , 

4  (TEMEQVjSPDUM) , (VAREQV,F) ,  (MALEQV.FW) , (FLXEQV,DELQH),  (OUTEQV,Y) 

DIMENSION  BLQEQV(  1242) , BUMEQV (  10),CC£EQV(  04),CONEQV(  423) 

1  , CRBE QV (  67) , EDGEQV (  649),EPSEOV(  301),EQPEQV(  2352) 

2  » EQTEQV (  1033),ERREQV(  1460) ,ETAECV(  1463) ,FLPEQV(  1200) 

3  ,FLXEQV(  1406),HISEQV(  1171) , INTEOV (  1O0),KINEQV(  421)  EN1 R-MOD 

4  , NONEQV (23663) .OUTEQV (  42),PRME0V(  517) ,PRPEQV (  600) 

5  ,STTEQV(  30),TEMEQV(  335),VAREQV(  511),WALEQV(  606) 

DATA  ATA(1),ATB(1),ATC(1)/4H  ,4H  ,4H  / 

IF  (ICK-101)  7f, 10,40 

10  REAO(  12  )  FLPEOV, BLQEQV, BUMEQV,COEEQV,CONEQ V, CRBEQV, EPSEOV, 

1  EDGEQV,  EQPEQV,  KINEQV,  EQTEQV,  ERRECV,  ETAEQV, 

2  FLXEQV,  HISEQV,  INTEQV,  NONEQV,  OUTEQV,  PRMEQV, 

3  PRPEQV,  STTEQV,  TEMEQV,  VAREQV,  WALECV 

GO  TO  70 

40  WRITE (12  )  FLPEQV.bLQEQV, BUMEQV, COEEQV,CONEQV, CRBEQV, EPSEOV, 

1  EDGEQV,  EQPEQV,  KINEQV,  EQTEQV,  ERREQV,  ETAEQV, 

2  FLXEQV,  HISEQV,  INTEQV,  NONEQV,  OUTEQV,  PRMEQV, 

3  PRPEQV,  STTEQV,  TEMEQV,  VAREQV,  HALEQV 


70  CONTINUE 
5  RETURN 
END 

C3LINP 


C01A  067 
C01A  068 

BOUNDARY  LAYER  INTEGRAL  MATRIX  PROCEDURE  BLIM  OOl 


1S,IT,NTIME,NSP,NSPM1,NAM,NLEQ,NNLEQ,NRNL,  ITS, KAPPA, CBAR,CASE(15 
2,0(0)  ,  MWE, NON, KQ(10), ITEM, NITEM,KR17,NBT,NET2,IDENT,XR9(40 

3»XAUX0, JTIME, JSPEC.MO (3) , IU ,  ISH 
COMMON/PRHCOM/TIME (50) ,PRE (40) ,PTET (5 0) ,GE  ( 50)  ,S  (40) ,ROKAP (40) 

1  ,RNOSE,VKAP,NDISC,IOISC(40),NSC(10),MSO(10),ITF(50>,IPRE,RAONO 

2  ,CONE,RAOFL(50> ,RADR(40) , R AOS (40) ,  IRAO 

COMMON/ W A LCOM/FW (40,  1),TK(40,  1),HW(40,  1),SPW<  8,40,  1) 

1, RHOVW (40 ,  1) , FLUX J  (  3,40,  1),IHW,ITW, TFW , ISPW, IRHOVW,  IFLUX J 
1  FORMAT  (AD 


>NB02A 
I  B02A  4 

I  802A  5 

ENTR-MOD 
ENT R-MOD 
ENTR-MOD 
ENTR-MOD 
B02A  7 
B02A  8 
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117 

DATA  IAST/1H,/ 

118 

OATA  LAST/IK./ 

119 

DATA  I Bl ANK/2H  / 

120 

KIN*5 

ENTR- 

•MOO 

121 

K0UT=6 

ENTR- 

MOO 

122 

JTIME*1 

123 

B(l)=.5 

BLIM 

015 

124 

B(2>*. 333333333 

BUM 

016 

125 

8(3)s.l66666666 

BUM 

017 

126 

B (4)*. 125 

BLIM 

018 

127 

8(5)2.041666666 

BUM 

019 

128 

8(6)2.033333333 

BUM 

020 

129 

8(7)2. 013888888 

BLIM 

021 

130 

8(8)2.003968254 

BLIM 

022 

131 

IT=1 

BUM 

023 

132 

46  MM £=-! 

133 

NBT2I3 

ENTR- 

MOO 

134 

NBT2*14 

ENTR- 

•MOD 

135 

IS=1 

BLIM 

025 

136 

IU=1 

ENTR- 

•MOD 

137 

41  I T  EH= 1 

BLIM 

026 

138 

42  CALL  SETUP 

BLIM 

(*27 

139 

43  CALL  ITERAT 

BLIM 

031 

140 

CALL  OUTPUT 

BUM 

032 

141 

IF  (IOENT.EQ. IBL ANK)  GO  TO  55 

142 

CALL  FELTRU 

143 

55  CONTINUE 

144 

IF (NON >43,44, 40 

BLIM 

033 

145 

44  ITEM=ITEHU 

PLIM 

034 

146 

IF(ITEM-NITEN)  42,42,45 

BUM 

035 

147 

45  ISH2IS 

ENTR- 

•MOD 

148 

IU=IU+1 

ENTR- 

MOO 

149 

49  IS=IS«-1 

ENTR- 

MOD 

150 

IF(KQ(10)+IS.EQ.-10)KQ(10) =1 

ENTR- 

MOO 

151 

IF(IDISC(IS).EQ.2)GO  TO  49 

ENTR- 

•MOO 

152 

IF (IS-NS)  41,41,40 

BLIM 

037 

153 

40  REAO(KIN,l)  JAST 

154 

IF (IA  JT-JAST)  47,46,47 

155 

*♦7  IF (LAST-JAST)  40,48,40 

156 

48  STOP 

157 

END 

BLIM 

0  38 

158 

CB0  3A 

B03A 

001 

159 

SUBROUTINE  SETUP 

B03A 

002 

160 

DIMENSION  HIST 1(605) ,HIST2 (€07) 

,HIST3 (511) ,VMAT  (566) 

,HIST4 (600) 

B03A 

003 

161 

COMMON/3LOCOr(/  MOA(  71),  MOB( 

7 1) ,NSPEC,FR (  71,15) 

,M(3) 

,LEF ( 10) 

B03A 

4 

162 

1 ,LEFS (10) ,PIEA$E,LEFH(10) 

B03A 

5 

163 

COHMON/EOGCON/  PE (40 

,  1) ,PTE(40,  1)  ,SPE( 

8,  40, 

D ,OUES 

,  B03A 

6 

164 

1UE (40) ,RHO£(40> , VMUE (4 0 ) , TE (40) 

,UEOGE ,OUEOGE , 02UE0G, 

VMNE, 

CGE,C90 

CMTR- 

•MOD 

165 

2, OSIP (40)  ,IOSIP,TTVC,TVCC(4  0'»,H5A(40),SF(20)  ,CS(20), 

CSPR(  20) , 

ENTR- 

■MOD 

166 

3CG(20) ,CGP(20) , SREF,GEP,NEN,UINF,RHOINF,HINF,PINF 

EMTR- 

MOO 

167 

COMMON/FLPCOM/TXH  2) ,TUE(2) ,TRHOE (2) , TTE(2) ,T VMUE (2) 

,TMAT (566,2) 

803A 

9 

168 

2,THF (15,2) ,LEFT(10, 2) , TPE( 2), TRIOS (2) ,T0SIP(2> ,KCT(2) 

803A 

10 

169 

COMMON/HISCOM/Cl ,C2,C3,C4, ALPHO 

,BETA,ZM(4, 14)  , ZG (4, 14)  , ZSP (4 , J4, 

8  0  03  A 

<  t 

170 

1  ) ,XI(40> ,HF(15,5) ,HG(15,3) ,HSP(1!,3,  8) ,HALPH,MUE,HHUE,MFN,OLX2 

803A 

1  ’ 

171 

2,C3M(40) , BET AH (40) 

803A 

13 

172 

COMMON/ INTCOM/  KR(20) ,KIN, KCUT, 

MATH ,MAT2I ,MATl  J,MAT2J,NETA,  I  ,  IS, 

NB03A 

l1* 

173 

1S,IT,NTIME,NSP,NSPM1,NAM,NLEC,NNLEQ,NRNL,  ITS, KAPPA, 

CBAR, 

CASE  (15) 

B03A 

15 

174 

2,8(8),  MHE,NON,KQ(10) ,ITEM 

,NITEM,KRl7,NBT,NeT2, 

IOENT 

, KR9 (40 ) 

B03A 

16 
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175 

3 

' »  KAUXO, JTIME, JSPEC,M0 ( 3) , I U  ,ISH 

ENTR- 

MOD 

176 

COMMON/PRMCOM/TIME(  50)  ,PRE  (4Q) ,PTET (  50)»CE(  50>»S(40) ,ROKAP (40) 

B03A 

18 

177 

1 

, RNOSE , VKAP,NOISC, IOISC (40) ,NSO( 10) »NSOC10)»ITF(  50) ,IPRE,RAONO, 

B03  A 

19 

178 

2C0NE , RADFL (  5 0 ) , RAOR (4 0) , R AOS (4 0) , IR AO 

603  A 

20 

179 

COMMON/VARCOM/F (4,15) ,C (3, 15) ,SP(3,15,  9) , ALPH 

B03A 

21 

180 

COMMON/ HALCOM/FW (4 0 »  1),TW(40,  1),HM(40,  1),SPH(  8,40,  D 

603  A 

22 

181 

1 

. , RHOVW (40 ,  1) , FLUX J  (  3,40,  1) , IHN, ITH, IFN, ISPH, IRHOVW, IFLUXJ 

803A 

23 

182 

EQUIVALENCE (HI ST  1, XI), (HIST2,  PE> , (HIST3»F) , (VMAT,C1), (HIST4 

,FH) 

C03A 

008 

183 

2 

FORMAT  (1H18X4HTIMEE12«5,56H  SECONDS  -  --  --  --  --  --  -- 

m  m  m 

C03A 

022 

184 

1 

185 

3 

FORMAT (/1H17X4HTIMEE12 , 5, 35H  SECONDS  -  -  -  STREAMHISE  DIMENSICNE12C03A 

024 

186 

1 

.•5,  11HFEET  ~  -  - ,2X3 A6) 

14  7 

4 

FORMAT <1H18X4HCASEI3,32(2H  -)2X3A6> 

188 

5 

FORMAT (lHl7X4HCAStI3,ll(2H  ->21H  STREAMNISE  DIMENSIONED.  5 , 13N  FEE 

189 

IT  -  -  -  -3*6) 

190 

9931 

FORMAT (I3,7E10«3) 

C03A 

026 

191 

OATA  MD(2)/6H  / 

192 

MO  <1)=HD(2) 

193 

M0(3)»MD(2) 

194 

CALL  ETIME 

195 

CALL  DATE  (9,MD) 

196 

CALL  T00(18,M0) 

197 

KR  (2)  -2 

198 

J=MOD ( ITEM, 2) ♦ 1 

C03A 

028 

199 

IF(MNE) 101,154,154 

C03A 

029 

200 

C 

INPUT  CONTROL  AND  TITLE  CARO,  NUMBER  OF  ELEMENTAL  SPECIES  TO 

BE 

C03A 

030 

201 

c 

CONSIOEREO,  TIMES  ANO  BODY  POSITIONS  TO  BE  CALCULATED,  AND 

C03A 

031 

202 

c 

REFERENCE  CONC IT  IONS (WHEN  GIVEN  AT  THESE  PRECISE  TIMES  ANO  800V 

C03A 

032 

203 

c 

POSITIONS 

C03A 

033 

204 

101 

CALL  RECASE 

C03A 

034 

205 

KQ(10)  —  0 

206 

IFCKR (7) . GT. 1)  CALL  TRMBL(l) 

207 

IS*1 

C03A 

037 

208 

IT*1 

C03A 

038 

209 

c 

INPUT  ETA  VALUES  AND  SET  UP  ANO  INVERT  LINEAR  MATRICES. NOTE. 

. KR (1) 

i  C03 A 

039 

210 

c 

MUST  BE  UNITY  FOR  FIRST  CASE,  BUT  FORMATION  OF  BA1  ANO  BA2  CAN  BE 

C03A 

040 

211 

c 

AVOIDED  FOR  SUBSEQUENT  CASES  BY  SETTING  KR<1)  EQUAL  TO  ZERO. 

THIS 

C03A 

041 

212 

c 

CAN  BE  DONE  IF  ANO  ONLY  IF  ETA  SPACING  IS  TNE  SAME 

C03* 

042 

213 

IF(KR(in  104,  104,  103 

C83A 

043 

214 

103 

CALL  LINMAT 

C03  A 

044 

215 

104 

KR17*KR ( 17) 

C03A 

045 

216 

154 

IF ( IS* I TEM-2)  105,135,1572 

217 

1572 

IF  (KR ( 3>  >  1570,1577,1570 

218 

1570 

DO  1573  K*l* 10 

ENTR- 

-MOO 

219 

IF<LEF(K)-1>  1573,1575,1573 

C03A 

049 

220 

1575 

LEF  (K) *2 

C03A 

050 

221 

1573 

CONTINUE 

C03* 

051 

222 

1577 

IF(NITfN-l)  1574,107,1574 

C83  A 

05? 

223 

1574 

MRITECN8T)HISTl,MIS?2,NISr3,MlST4,NfLEF,RA0S,K0(10) 

224 

IP  (ITEM- D  15*, 156,157 

C03A 

054 

225 

156 

IDUM*N8T 

C83* 

855 

226 

N8T*NfT2 

C03A 

056 

227 

N8T2*IDUM 

C83A 

057 

22  8 

00  153  1*1, NITC* 

229 

153 

BACKSPACE  NBT2 

~  30 

SO  TO  155 

GO  J* 

060 

?  Ji 

157 

IFCIS-1)  105,105,155 

232 

155 

REAO(NBT?)MrSTS,MlST2,NIST3.NIST4,N,LtF,iAOS,KQ<10) 

76 


AFWL-TR-69-114,  Vol  I  (Supp.) 


233 

60  TO  107 

COSA 

063 

234 

C 

INITIAL  GUESSES  FOR  PRINCIPAL  OIFENOfNT  VARIABLES.  CALCULATE <NR12t  C03A 

066 

235 

C 

■0),  INRUT (RRT2)»1) »  OR  USE  VALUES  PROM  PROM  PREVIOUS  CASETRRT2) 

C03A 

067 

234 

c 

•2).  NOTE. .LATTER  REQUIRES  SAME  ETA  VALUES  AND  SAME  SPECIES.  ITS 

COSA 

066 

237 

c 

UTILITY  IS  FOR  REPEATED  SIMILARITY  SOLUTIONS.  IT  OBVIOUSLY  CAKNOTC03A 

0*9 

238 

c 

BE  USED  FOR  FIRST  CASE. 

COSA 

070 

239 

1*5 

CALL  FIRSTS 

C03A 

071 

241 

IF  (TINE  (1H  1051,1*32, 1152 

241 

1051 

ITAS-OBSCTIHCCITOH  ) 

242 

WRXTE(KQUT,4)  ITAB,  NO 

243 

60  TO  106 

244 

1052 

WRXTETROUT,2)  TIRE  CXTEH) ,HD 

245 

106 

IF (KRt 71)204, 284,203 

246 

203 

IF(XR(|2).NE.ll  CALL  STATEN 

247 

GO  TO  202 

248 

204 

IF<KR(12).NE«1)  CALL  INPUT (PTETtlH 

249 

202 

CALL  REPCON 

258 

IF(KQ(9).NE.0>  CALL  TRANCR <1> 

251 

RRC12) *1 

C03A 

076 

252 

IS«1 

COSA 

077 

253 

107 

00  1262  I«l,l* 

EWTR-ROO 

254 

IF  (IS.EO.l.AMO.LEP  <X).fQ.2. AN0.KKC2) .6E.0)LEFCI)>1 

ENTR-NOO 

255 

1262 

LEPTCI.JI-LEFIII 

CI3A 

OM 

256 

•  •« 

•COMPUTE  HISTORIC  INFORMATION 

257 

CALL  MISTVI 

258 

IFITINEdll  1053,1054,  1*94 

259 

1053 

ITAB>A§SCTXNE(XTEN)t 

260 

WRITE! ROUT, 5)  ITAB,  S(ZSI,  NO 

261 

60  TO  126 

262 

1054 

WRXTE(RGUT,3)TINE<ITEM),S(IS»,NO 

263 

126 

00  1241  I-1»RET6 

266 

1261 

THF (I, J)*HF(I,  5) 

COSA 

005 

265 

TXKJI-XlClS) 

COSA 

•06 

266 

TRAOS t JI-RAOSCIS* 

2*7 

TDSIFf4)-03IP*I3» 

268 

TUC<J1«UE<I3> 

COSA 

•  •7 

26* 

TRHOC  TJl-RNDETIS) 

COSA 

270 

TTf  L2)*TETI$) 

COSA 

in 

271 

RQTUlaROd*) 

272 

TVRUC  (JtaVMUCUSI 

C63A 

•90 

273 

00  1*4  1-1,96* 

063  A 

•91 

27* 

1*6 

TN*Td,J}-VMT(II 

COSA 

•92 

275 

TPEU»-Pf  tn.ti 

C63A 

*93 

2  76 

RUE-8 

C63A 

•94 

277 

c 

START  OF  ITERATION  LOOM 

COSA 

•95 

276 

15* 

ITS-* 

COSA 

•  96 

27* 

KRtl7l»KR17 

C93A 

•97 

266 

If* 

RETURN 

cjsa 

89* 

261 

(MO 

C03A 

099 

2*2 

C«*46 

084A 

001 

263 

SUBRO LTfRf  ITCRAT 

09f>A 

002 

26* 

CONRON/SLOCON/  MOAT  7t»,  ROBT  7tl,RSPfC,F*t  71,19)  .NTS)  ,L(Fdt> 

•04* 

a 

2*5 

i 

l,L(PS  (1**  ,FICASC»LffFR!  |*t 

*C*  A 

6 

266 

CONNOR/BUNCOR/  *UNP .C«RRA,(ASt , ICORR, ROOT, Tri,l777,0T(RR, AIR, !*»»*.  1 

5 

2*7 

CORNOH/fRROONFFLCT  43* ,«Lf f )*) ,SPU Cl*,  *1 ,EL*(0t3» tPLCN,«LCR 

•04* 

A 

2M 

1 

l.SPLEMT  *),CLRTl4*,CLRR*rFLR,I0UI,tSPLHt  •)  .HELM,  URN,  OFl  1431 

»*4* 

> 

2*9 

i,«(uiii,*viin,  •> .7NU<t*i.MLt«i*i *»,0n.u5s> 

•*64 

0 

2*6 

3 

l,FMLCRr6HLCR,SPRUNf  •),  CHARM.  IFRLR, I6RLR,ISPN6.Rf  •) 

9*'  > 

* 
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291 

292 

293 
296 
29$ 

296 

297 
296 

299 

300 

301 

302 

303 
30* 
30$ 

306 

307 
306 

309 

310 

311 

312 

313 
316 

315 

316 

317 

318 

319 

320 

321 

322 

323 
326 

325 

326 

327 
326 

329 

330 

331 

332 

333 
336 

335 

336 

337 
33* 
339 
369 
361 
3*  * 
36J 
366 

365 

366 

367 
366 


6  *NENLN»  INLMM,0FNL(16) ,  OGNL  (15)  ,OSPNL (15 ,  6>,DRNL(10>  B06A  10 

COMMON/ IN TCOH/  K R ( 2 0 ) * KlN , K0UT ,HAT1I, MAT2I » M ATI J,HAT2J,NE  T A , I , IS,NB06A  H 
lS,IT,NTIME,NS?,NSPMl,NAM,NLfQ,NNLEQ,NRNL,  ITS  , KAPPA, CBAR, CASE C15)  B06A  12 
2,8(6),  MWE, NON, KQ (10)  , ITEM, NITEM, KR17 ,MBT ,NBT2,I0EMT, KR9 (60)  806A  13 

3,KAUXO, JTIME, JSPEC,HO(3)  806A  16 

COMMON/PRMCOM/TIHE (  50) ,PRE  (60) ,PTET (  90),Gf<  50),S(60) ,ROKAP(60)  B06A  15 
1,RNOSE,»KAP,NOISC,IOISC(60) ,NSO(10) ,MSO(10),ITF(  50) ,IPRE , RAO^O,  B06A  16 
2CONE,RAOFL(  50) ,RAOR(60) ,R A0S(60) ,IRAD  806A  17 

COMHON/VARCOM/F (6, 15) ,C(3, 15) ,SP(3, 15,  9),ALPH  SC6A  16 

5  FORMAT (I3,1X,F6. 3,F6.3,F7. 6,F6.6,1P£7. 0, 6( I3,£8. 1) ) 

6  FORMAT  (/1X15HITERATE0  VALUEI,11X67H0ANP  MAX. LIN  MAX. ERRORS  IN  CO 

1NSERVATION  EQS. /1X56NI TS  1 1  HE  AlPH  FPFN  ERROR  NOMEN 

1TUM  ENERGY  6(5XA6,A2II 

1  FORMAT (22M  NON-CON YERGENT  OUTPUT)  B06A  016 

L6l  ITS-ITSM  896A  019 

JTIME*MAX0(JT1ME,0) 

CALL  TLEFT(ILEFT)  ROG 

IF(ILFFT-JTIME)  30,30,31 
30  JTIME--JTIME 


KR(6) »1 
KR (16) *  l 
KR ( 18) »l 
KR(19)>1 
31  CONTINUE 
NON*2 

323  IF(ITS-5) 
320  IF  (KR (2) ) 


ROG 

ROG 

ENTR-NOO 

ENTR-MOO 

ROG 


323  IF(ITS-5>  328,328,321 

320  IF (KR (2) )  325, 321, 321 

321  IF  (<Q( 10) ♦ 1 0 >  326,322,326 
326  IF (NON-2)  325,330,325 

325  RETUR) 

322  KQ(  10  1*2 
IOISC  IIS)*1 
EASE*  0. 11 
ITS*2 

WRITE ( KOUT ,326 ) 

326  FORMAT (96M1  PRIOR  LAMINA*  SOLUTION  AFTER  TRANSITION.  TURBULENCE 
1  MILL  BE  INCLUDED  ANO  SOLUTION  CONTINUEO  //) 

326  IF  (NON)  325,330,330 

330  MON*0  ENTR-MOO 

CALL  N ONCER  R06A  021 

CALL  ETINCF(TIMO) 

FPPM*F(3,1)/<ALPN«ALPM)  B06 A  622 

If  (KQ  ( 18 )  .CQ.2 '  GO  TO  I960 

JF(KR(6)«KR(16)*KR(17)*KR(16)/2*KR(19) ♦«R(26)*NON)  169,169,1901 
169  IF  UTS-1)  1961,1901,1911  606A 

1960  KQ(13>-1 

1961  IF  (NSPM1)  192,192,190  666A 

198  WRITE  (KOUT, 6)  t  NO  4(0, NCR  (<>»<*!»  MSPN1)  B(6A  829 

60  TO  191 
192  MR ITE ( KOUT, 7) 

60  TO  196 

1911  I *  IMSPMi) 196,  196, |9t 

191  MRIT((KOUT,5) ITS,TI»N),ALPM,FPPM,EASC,EIMM,IFNLM,FNLEH, I6NL K, 6KLC*, 

1 (XSPNLM(K) ,SPNL0N(K> , K* 1 , NSFM1 ) , NON 
60  TO  1928 

196  WRITE t KOUT, 5) ITS, TIRO, ALPH, FPPM, EASE, EUM4,IFMLN,f ML  CM, I6NLM,6KLCM 
1925  IF (KRI 2) )  162, 1921,1921 
1921  IF1€RLMR*CL»R*-C.  8082)  U2.  1*2,159 
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399 

350 

351 

352 

353 

359 

355 

356 

357 
350 
355 

360 

361 

362 

363 
369 

365 

366 

367 
360 

369 

370 

371 

372 

373 
379 

375 

376 

377 
370 
379 

300 

301 

362 

363 
369 

365 

366 

367 
366 
309 

390 

391 

392 

393 
399 

395 

396 

397 
396 
399 
966 

961 

962 

963 
969 
969 
966 


MAX. ERRORS  IK-  CONSE 
ERROR  MOMENTUM 


7  FORMAT I/7X65MITERATE0  VALUES  DAMP  MAX. LIN 
1RVATIOM  E0S./1X5SHITS  TIME  ALPN  FPPN 
2  ENERGY  > 

162  NOtt»0 

GO  TO  329 

159  IFCITS-50)  161,160,160 

160  NR|TEIKOUT,l> 

IF  lELMM^CMLMM-. 02)  162,162,1601 

1601  NON»l 

GO  TO  320 

C  ITERATE  OR  OUTPUT 

161  XF(KR<9»)  101,101,193 
193  NON«-l 

GO  TO  323 
ENO 

C  0090 

SUtROUT IMCNONCER 
INTEGER  ASU,BSU 
OXMCMSIOMOOJRMH  7i,D 

DIMCMSIOMOELQJNCll  , OQJNL 1 153, 1)  ,NALLCJC1) 

OXMEMSIONCOiEQVI 09> ,COEFQV  <923) 

COMMON/0LQCOH/  MOA(  71),  M08 1  71) , NSPEC, F» <  71, if) ,»<JI  , LEF f l 0) 

1  ,LCFSttO),PXCAS£,LEPNfl0) ,L2,L3 
COMMON /0UMOOM/  SUMP, CORRA, EASE, XCORM,MOOT, TF2, 1777,  OTENP, X  IP, IXBQ5S 

COHMO  t/COECON/  C»,C6,C7,C0,C9,Cl0,Cll,Cl2,Cl3,C19,Cl5  0O50 

l,C16,C17,C)0,C19,C2O,C21,C22,C23,C29,C29,C26,C27,C20,C29,C3O,C31,CtO50 
232,C33,C39,C35,C36,C37,C30,€3f »C98»C9i,C92,C93,C99,C9f,C96,C97,C98B056 
3,C99,C5B,C91,C52,C53,C$9,C95,C56,C97,C5<, C59,C6f,C61,C62,  C63,C69,CR0$B 
965,C66,C67,C68 ,C69,C70,C7 1,C72,C73,C79,C75 , C76, C7 7, C76, C7 9, C6 0,012058 
5,C62,C63,C69,C65,C66,C07,C0t  8050 

COMMON /COE COM/  CXI (  6),CK2(  0),CX3f  6),CX9<  6),CX5(  8>,CK6l  6)  8050 

1, CK7<  6) ,CK6(  6) ,CX9t  0),CKI0(  6),CK11<  6),CK12(  6),CX13<  6)  8050 

2, CK19<  6) ,CX15 I  0) c CKii <  6),CK17<  6),CK16(  l),CK19<  C),CX20(  6)  8056 

3, CK21  <  0)  ,0(22  C  6),CKK.<  6,  0 ) , C  »X?  I  6,  6  >  ,  XM  (5)  ,XG  <5)  ,  XSP  <5  ,  9) 

9 , CKX3 (  6,  8) 

C OMMOM/CR0COH/HCAP0, EMZS,STfF,AOUM,0OUM, COUP, HTeF.HMAT, EMI  SC, EXIST §358 
1 ,  MP6,  ASUI3),DSU<3>  ,MPYG(3)  ,PCMAP(3)  ,EMIV<3)  ,XSt90)  ,ISU  8050 

COMMON/COGCOM/  Pf<60,  i),PTC<90,  1>,SPE<  6,90,  l>,0UES,865a 


8091  029 

B09A  0  3) 
B09A  032 
8096  033 
B09A  039 

009 A  036 
B09A  037 
809 A  036 

B09A  093 

80560020 

8056  009 
8058  0  £5 
8058  OK 
8058  7 

ENTP-MOO 
9 
10 
11 
12 
13 
19 

15 

16 
17 
10 

19 

20 
21 
2? 
23 


0050 

6050 


1UCC90),RMOC (91), VNUE(«I),TC 190), Uf 06C , DUfOGE , D2UC06,  VMtfC,  CCf ,  C90  fKTP-WOD 
2 , OSIP <9 6) , 1031 P, TT YC ,T  VCC<  6f) ,M€At96),SFI/0),CSt2O> ,CSPR(20>,  E9 TP-MOD 

3CCI2I) ,CGP<2«) ,SRCF,€fr,NCW,UlKF,RM«XNF  fUTP-MOO 

COMMON/CMSCON/f LCOM, YAP,CLMLH,SCT ,PBT ,REO, BVS, PwOVS, PI ,PXM ,CL ,  0»S0  tt 

1  EPS6  <l5) »fP5l ,CL<15),0PI< IS, 2) ,OfPC, TRCF,RITR»V JNTP 115)  C«TP-PCO 

CONROM/CQPCOM/  MM  71,2I,RC<  71, 2),  MM  7l,2),Pf<  7i,2),BF<  71,?),  6058  ?9 

1  TUI  71,2),FFI  7 1) , FFA , IFC  I  71) , AT0 tit) ,0Tf  Ilf) , 0TC 1 10)  ,  N6 T 1 1 0) ,  0058  29 

2  KATI10), IPI10) •XZ,X2fi»>,L6MXt  7}) ,P, 2, TX  I  )0 ,  7>,VNI  71),  2058  36 

3  VNUt  7l,|0),ITFF, PR?, MCM, MC V, PM, MTNf  71),YYT(  7i),VMt  71},CCI  71)6650  31 

9  ,30116,  7)  ,EPOVRV,  SICM6,0  ASMOi.  0050  J? 

CONMOK/COTCON/$IP,MZP,Cn,flML,rLIQ,CPF,IRC,lCR,AA,IITS,XM,Il,!IT,t6$f  13 

1  MODE, MMCLT, SMELT, THAI, TRIM, MELT, SUNM,SUML,«5, MTS, 0X,I^?,I$PO,  0890  39 

2  ISP,KXJ,SVA,SY8.SYC,SY0,SW»C,FFY,C»F,tP,»Y,IFCJC.MTC,MTL,JC,P»C,  0650  *' 

1  CCP6,TTMIM,TTH6X,L7,*0,I0Un,f»llt)  ,E8L  I  It)  ,  At  {6  ,19)  ,88116),  f  K  T  *  -  *C:.' 
9  ZPI  71) , ALPI 10) ,F MU  110) ,6 AMP  I It) ,9 A NT  lit) ,5lAPflO),OT<  7|),0\S,  t:r9  37 

5  CPt  7H,M«M  7 1 )  ,S8 1  7j|,TCI  7*),n*K<  71),  ||  7J»  ,PMUS  110)  ,  33 

6  <ICtl3),8LMPtl0),8Yll0),I0Cli()»0C*SA)»47l  9)  #359  }* 

COMMON /CPPCOM/FLE  I  9J)  ,6Lf  1  30)  ,SPLE  IJ0,  6)  ,EL  A I  3|3)  ,  FLCN,  CtC**  6658  99 

ItSMtCMI  6),Q.Ntl9)#CU6MvIFLP,ZGLM,ISPLMf  0 )  ,MCLM,H.MH.Of  t  {%  3  )  0r59  «.  * 

2»OCL  1 30)  ,OSPl  1 30,  8)  ,FMLE  lit)  ,6NLl  US)  ,  SPMLI 1 15,  6>,mil53>  8050  «.r 
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1,LAR(153) ,BA1 (A3, 16), 8*2(30,15) 

COMHON/FLXCOH/OELQW, OELJtH  •  ) ,  OQM.  (153)  ,QJML  <153#  6), HALLO 

1 ,  MALL J (  8}  ,QM,  VJKM  (  3!,TWAU 

COHHON/MISCOH/Cl »C2»C3  »C4, ALFHO»BETA,ZM (4, 14) ,Z6 (4,14)  , ZSF (A, 
1  ),XK40J,HF(l5,5),HG(l5,3),HSMl5,3,  8)  ,HAIPH,KUE,HMDE,HF1I,0 

2, C3H(46)  ,8£TAN(40> 

COMMON/ XNTCOH/  KR(26>, X1N. XCUT,MATl I,  HAT2I  ,FAT1  J,NAT2,J,NC T  A, I 


3,KAUX0,JTIMC,JSR£C,M0(3),IU,ISM 
COMMON/ NONCOH/AH(l53,i 53)  ,0mii53>  ,TCN, 
1VLNXM,0LPM(  9) , DlPM  8 ,  9)  »0THM»0?KN(  8), 
COMHON/RRMCOH/TINC  (581  ,  RRE  (4|)  #FTCT  (98)  #6 


B05B  A3 

eesa  <♦* 

BOSS  Af 
8098  46 

B098  AT 
BOSS  Af 
14,  88059  A9 
1X2  6856  50 

BOSS  51 
,X$»MB85B  52 

(15)  8058  53 

i(40>  8656  5A 
ENTR-NCO 
6658  58 

8058  57 

>  ENT  R*  MOO 
5)  8058  58 

) ,  08058  59 

K(  6)8058  50 

8)  6058  81 

II  8058  62 


l,VnU3'OTH,DCAPCM,OF8N>OSCH,OORH»OCFBH'OCFTM,ONUl2H,VHU<l5) »  RMOF  8658 
■?*  ( 15)  «  FHIKF  (15)  ,MR,TR,Zi(M  6 > , VNU3F, VNUAF.M TIL P,CRH0 ( 14) ,CNR ( 15)  6058 

COMMON/ VARCOH/F (4,l5)»G(3,15>ySR(3,l5,  9) , ALRM  8058 

COMMON/ HALCOM/FN (4  0,  1>,TN(A8»  D  ,HN(4  8,  1>,SRM(  8,40,  1)  6658 

l,RMOVM(A0,  1) , FLUX J  t  3, A0,  D ,INK,ITM, XFN , I«RM. IRHOVN,  XFLUX J  8058 

DIMENSION  £NLN(1), IERLM41) 

EQUIVALENCE  (ENLN(l),FNLfH)  ,  ;XENLM(l)tIFNLM> 

EQUIVALCNCECOELQM, OELQJN)  ,  <rQNt,0CJNL> ,(MAllQ,NALLQJ>  BQ5A( 

OX  MENS  I ONCORAR  !  1 )  805A( 

tiuituii  tamrn*i>i  n.liltll  Rttil 


OX  MENS  I  ONCORAR  !  1 ) 

C QUI VALENCE (COR AR( 1) ,AN(I) ) 
EQUIVALENCE (AN ,OQJRNL) 
DIMENSION  RREQ(l) 

OXMENSION  ZEIT (9) 
CQUXVALENCEIRREQm  .ORNOH) 
FQUIVA  LEMCF (C5 • COCFQV1 . (CXI 


i  MALLOJ) 


EQUlVALCNCE(RREQ(l) .ORNOM) 
EQUIVALENCE(C5,C0CCQV>  ,  (CKKl)  ,C0fFQV) 
C**N8***MOT£  240*1,559*1,725,730*1  RNCN  REDI 
EASE»AMIN1 (EASE* 2* ,1.0) 

IF  (ITS-l)  11,5,11 


fOV, 

REGIME NS  I CNI NC 


5  CASE1 3. 65 
RUHR  *  1.6 
IF (ITE M*IL-2>  3,3,2 

2  IF(NCOT)  5,3,3 

3  MOOT*-. 12/Cl 

4  RIEASCM. 

ICORM  »  i 
COMMA  *  l.E  »  19 
TF 2  ■  6. 

IF  (KM9(IS)>  8,8,7 

7  XR(9)*XR9(IS> 

8  OO  17  I-l.tCTA 
17  CRSA(I>»8. 

IF(KR(9>-2>  11,10,9 

9  FLU*J(3,IS,IT> *-l. 

10  ISMIZ*1 

XX»M«X8tl*XS(IS>> 

X(l)  *  FLU*J(i,IS,  X  T » 
V(;)»FLU»J(?,IS,IT> 


B05A0380 

805A0570 

B65A6400 

B0580490 


6658 
605*6840 
60f A  0890 


865AQ740 

ENTR-NOO 


805*0740 

•95*0770 

605*0789 


8{5  A  |7  85 
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**f>5 

464 

467 

468 

469 

472 
<•73 
474 
4  75 
474 
477 

470 
479 

400 

401 
481 
403 
4*4 
485 
484 
4»  7 

488 

489 
498 

491 

492 

493 
49k 
49$ 

494 

497 

498 

499 
580 
501 
582 
5  03 

584 
505 

585 
58* 

588 

589 
538 

511 

5 12 

513 

514 
MS 
518 

517 

518 

519 
528 

521 

522 


C--~- 

C 


C 

c~— - 


M131*FLUX,J<3,IS,  IT) 

l 2*2* XX 

U«L2»| 

IF (KR( 9) •?)  11 ' 11' 14 
14  HPG-HRV61XX) 

ENXSC-CHIVtXX) 

HCAR8*HCltARtXX) 

00  12  JalSP'NSFCC 
IFlNOAOl-ASUIXXll  12,13,12 

3  IF  (HOB  1 J) -BSU t KK) )  12,14,12 

4  ISU-J 

60  TO  11 
2  CONTINUE 
ISU-ISF 
1  KIF-0 

'  ******  ,0*  *“*u«**  ew.tw.5 

00  19  I*1,NNLEQ 
ENMI>*I. 

00  15  J«1,NNLCQ 
$  And, j)  •  •. 

»  miCH  CH*W61  °U*1,*C  |TWitK"  •«*  «*f  NOT  FCCTAJ 

0UN1  ■  AtFN  •  *tFH 
C4  -  SETA  •  OUNl 

C7  *  -  UCCIS)  /  OUNl  •  UffIS)  /  25834.5 
C8  *  AlFNO  •  C5 
C9  »  C4  -  C8 

STMTlOF  NAJMCa!Tf^TJfUS.T°  **  Ctt0t*  7801*  0T*R  COEFFS 

iinir  *  corrrs  *k°  ct*°*s  *t  c4cn  *** 

80151*8 

CAU  ETXNCFUCITllM 
00  45  I*lt  NET  A 

NfI)*6Cl,I)#8.5*FC2,I» *C7*ri2tI) 

KF*G12,I>*F12, I) *C 7** 13,11 
IF  tKR 1 71 )  47,47,44 
CAU  STATE 
60  TO  48 

CAU  E0UIl«0,tMI>,FfU$,lTll 
IF1I-I!  51.58,54 
IFINSFRI)  53,53,51 
00  52 

00  31  88*1,12 
018818,881  *  A  188*2,  8*21 
0T8WI81*  0T818) 

00  32  88-1,12 
01NM1881*  At 88 *2, II 
«1N8N*V1N8IISUI 
TCtNTCIISUl 

WCSA1  *  NH1ISU) /NTN1ISU)*! .8 
0THH*0TM 

NNOFII  it -08  MOM*  M9 
IF1NS9N1)  58,58,54 
00  57  8*t,MSFNl 

*NOM  I)  *«  W  111  *  MHO  8 1 8 1  *  S  F  (  2 , 1 , 8 1 


805*8010 

885*0830 

885*8840 

905*0850 

805*0860 

805*0*70 

805*0090 

805*0940 

895*0958 

805*0940 

805*0970 

805*0980 

805*0990 

805*1140 

805*1290 


E8T8-NOO 


f»?*-»CO 


81 
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523  M»HAT1J*I-HAT2J 

52*.  C - UPPER  LIMIT  IS  MAX  NUMBER  OP  SPECIES  <KXNSP)  *LAST  DIM  ON  SP 

525  DO  *9  MM»1,  S 

526  N*H+MAT2J 

522  C---~ UPPER  LIMIT  CORRESPONDS  TO  DIMENSIONS  ON  AM  ARRAY 

52A  00  AS  K*l2*,l53 

525  L»lM 

530  AS  AN(N,N»*PRCQIl> 

531  C0HJ*25I34 .5 

532  UEOCE-1. 

533  OUCO«C*B. 

53A  CCP-9* 

535  CGC«B. 

536  CC£P*8. 

532  OUH—  RH0C(IS)*R0NAP(IS)*C3*VMUE(IST 

53*  SfC-OUM*f (l,NCTA>*Ut CIS) 

53S  IfCW(5»-e>  *84, *82, *86 

5A0  502  IP  (XI ( IS) )  *«8,*BS,4B4 

5*1  AOS  flO6£*~RN0lNP/2.»UlNP/fRMOf <ISI*C3*VHUE(1S>*0UES) 

5*2  CO  TO  AS2 

5*3  AOO  PC0C£aRH0INF/0UN*UlNf/UE<13)*(R0XAPt!S)>*«2/2. 

5AA  *52  SPC*PE06€*OUM*U£(ISI 

5*5  ASA  IP (XR 1 5  k -*>  *50, *55, *55 

5*4  *50  IP(KR(5I«2>  *59, *51, *91 

5*2  *94  CALL  OCL£  tl. $FE,CG£,C6£P,NfN,SP,C6,CCP> 

5*0  *91  CALL  06L£  11 ,SFC ,CS£ ,CSCP, N£N,SP,CS,CSPR> 

5*9  0UB»CS£*SR£P-SIP 

550  CMfn.O*NlP*TlN£TA»*OUO*<l,*O.S*OTN*OUB»-Nf  AIIS> 

551  CTI*TIN£T<»*11.*0TM*0UB) 

552  CM£P»GTC*CSfP 

553  IP  IXHISM  *52, *92, *95 

55*  *92  IP  (KR 141-1)  *93,*9*,*9A 

555  *53  DUC06£»-RH0£IIS>  /OWES*  ICGEP-CNfP)«*C3*VNUEI  ISI  *CONJ 

554  U£OCE*SORTI1,*2.*OU£OC£*P( 1,N£TA)I 

557  C£P«B. 

55A  CO  TO  *99 

555  *9*  CPP* ICCPI2I-CCP »l)*CTC*ICSPR(2T -CSPR 1 1 ) > ) / rSPC2)-SP*l)) 

515  OU£OC£«6PP*OUM*OU«*PU,NETA)*CCNJ 

541  U€OCC*Se»Tll.*OUEOCv*P(l,NETAn 

542  C£P*0, 

541  CO  TO  *99 

54*  *55  Uf OCC*SORT 1 1,*  2,  *CONJ/U!  f  I  5)  •  C  CCE-CHC)  /UC  1  IS)  ) 

54*  6CP*©UN*UCtIS> •CC£P*U£06£ 

544  OUtO6C*0UN7UCtm*<C6£P-CMEP>*CONJ 

547  *99  0UP»0Uf0CtA>f06| 

540  CCE»CCE*C£IITE«» 

519  CALL  L IMCCR 

57»  CAtL  £T  IWEMIEX  T  12 ) > 

571  IPI*tmoi.CT.»>  CALL  TRM0L  1 2) 

572  CALL  CTIMEYITEXTf 3> » 

5  7|  TTVCM.8 

57*  00  129  1*1. MET* 

575  L*9 

574  N*NATI I-NAT2J 

577  C - UPPER  LIMIT  IS  MAX  MUN9ER  C»  S»fCItS  ININSPT  LAST  OIN  OM  SP 

57#  00  59  MINI,  9 

5  79  N»N«*4T2J 

«A#  C - UPPER  LIMIT  CORRESPONDS  TO  QIMfKSIOttS  C*  AN  ARRAY 


B058 


B05B 


CNTR-MOO 

CNTR-NOO 

CNTR-MOO 

FMTR-MOO 

CNTR-NOO 

ENTR-NOO 

ENTR-MOD 

CNTR-MOO 

CNTR-MOO 

CNTR-MOO 

CNTR-MOO 

ENTR-NOO 

ENTR-NOO 

ENTR-NOO 

enTr-noo 

ENTR-NOO 

ENTR-NOO 

ENTR-NOO 

ENTR-NOO 

ENTR-NOO 

ENTR-NOO 

e^tr-noo 

cntr-noo 

ENTR-NCD 

ENTR-NOO 

tNTR-NOO 

ENTR-NOO 

CNTR-NOO 

CNTR-NOO 

CNTR-MOO 

CNTR-MOO 

CNTR-NOO 

ENTR-NOO 

CNTR-MOO 

CNTR-NOO 

ENTR-NOO 

ERTR-NOO 

ENTR-NOO 

ENTR-NOO 


mum 


S«5i 
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501 

502 

503 

00  59  N*120»153 

L»L*1 

P«COfL>*AH<M*M! 

0058 

$14 

99 

AHTH*N>*0. 

505 

C 

TEST  TO  BYPASS  CONHANOS  THAT  CANNOT  BE  PfRFCftHEO  AT  ETA  ID 

0O5A131O 

500 

IP  (I  -  1)  00*01*55 

805A1320 

5*7 

900 

909 

55 

CALL  XHONE 

If <KQ(9>.Nf.0>  CALL  TRANCRTJI 

IF (KQT 10) *GT* 0>  CALL  TRHOL  <02 

605 A) 330 

990 

C 

CONFUTE  STATIC  ENTHALPY  A AO  OETEftHXNE  STATE  OF  CAS 

e05Al3%0 

991 

00 

CIO  »  C7  *  Ft2* I) 

00501390 

992 

CIS  «  C7  •  F(3 *  I) 

B05A1370 

993 

HP  ■  C<2,X»  ♦  FC2#II  •  C13 

005A130O 

999 

EVAL  GROUPINGS  NHJCH  ARE  USED  AT  1-1  AS  NELL  AS  AT  I 

0O5A1009 

999 

990 

99/ 

75 

CALL  ICOEFF 

IMKQI9I.NC.0)  CALL  TRANCR  (21 

IF(KQ(10>.GT.0>  CALL  TRNflL'3) 

005 A 1070 

990 

IF  (I  -  1)  100*00*100 

8O5A100O 

599 

C 

OLPKf  TCHiVLN*N,<30*H,  AND  T1  MECOEC  ONLY  FOR  CARSON  PRO  OLE  H 

BO5A109O 

000 

00 

IF  (NSPN1)  99*95*05 

60  5  A 15  CO 

001 

05 

00  90  K*l*N$PNi 

B05A1510 

092 

NALL  J f  K I  *  CA0CO 

0O5A152O 

003 

VJKN(K)  *  CK0TK)  /  C3 

805A1530 

000 

90 

CONTI  MIC 

005 

95 

NALLO  *  CM 

B05A1920 

000 

002 

QN  •  C  32  /  C3 

TPNALL  *  TP 

665 A 10  30 

000 

GOTO  105 

R05A 1009 

009 

C-* -•* 

SACK  TO  CONSERVATION  EQUATIONS 

BO5A105O 

010 

011 

012 

100 

CALL  I  ONLY 

IF  (XQ(10> .GT,05  CALL  TRHOUfl 

IF  TKQ (9) . NE. 0)  CALL  TRANCR (0) 

8  0  5  A 1 00  0 

013 

109 

IF  USTIFIT  120*120.119 

6O5AI07O 

014 

111 

F ORHAT (2 IN  ALL  THE  v,Of  FFIC  If  NTSF  T 11 1R12E 10 . 3) ) 

695A10O9 

015 

115 

WRITE  <KOUTtllOlCl*C2*C3*C0  » COCEOV* COEFCV 

BP5A109O 

010 

IK  *  -  2 

8Q5A1700 

012 

120 

CONTINUE 

B85A1710 

010 

00  12  I  1*2*0 

ENTR-HOO 

019 

00  121  >S*t»NNLE3 

ENTR-HOO 

023 

122 

fNTR-HOQ 

021 

C NL t0 1 >» tiLPN* Of 9Cf • F < 2 .  NE  T »)) 

ENTR-HOO 

022 

AN<0*1)*UEO«C 

ENTR-HOO 

023 

AN<0,H*TlJ)*-l. 

ENTR-HOO 

020 

CALL  LIAOI-1,0,NE1*-1, OLPH'CUF) 

CHTR-NOC! 

029 

INL<3>«-FT2*1) 

ENTR-HOO 

029 

AN(3,0)»1. 

ENTR-HOO 

022 

IFTKRt9>-2>  123*121*123 

ENTR-HOO 

020 

121 

ENLl2»»FCl,HtTAI-FC0GC*TTVC 

ENTR-KOC 

029 

CALL  LlAO<-t»2»NfTA-l»-l.l 

ENTR-NCO 

030 

GO  TO  12% 

ENTR-Ntr> 

031 

123 

f  NL<2> *COAR*f  f 2 *Nf T A) -F <2*  KAPPAI 

EhTR-) ' 

032 

IF(KR<5I.GT.l.  AN9.KR(9l.l?E.9>CMU2>»ENLT2>-C0AR*Ft]>»CTA)  •(ET«tK(TCtr  r  >  -  - 

033 

ilWTIUtfODt 

E*  f 

030 

ANT  2* KARRA*?) «1 , 

E>i 

039 

A#M2,NAT|JI— COAR 

EN?«-  *Op 

030 

IFTXRfSI.CT.l.ANQ.  KR(5).NE.5ICALL  LI*9t-l  *  ?»N£TA*M(TA-?,CBAR* 

TCTATflfTr-  r 

032 

1 

Hf  TA) -ETA (KARRA  *  II 

ENT*- 

03« 

CAU  ETINCF(2EITT0n 

f  Ik 
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639 

IF  (ITS  -  1>  125,125,145 

B05A1720 

64a 

125 

DO  140  K=1,NSP 

B05A1730 

641 

IF  (LEFS(K>)  130,130,140 

B05A1740 

642 

130 

IF (LEF (K) )  140,140,135 

643 

135 

EASE  =  .05 

B05A1760 

644 

140 

CONTINUE 

B05A177O 

645 

145 

IF (KR(19) )  170,190,170 

B05A1850 

646 

1?0 

CONTINUE 

B05A1S60 

647 

WRITE (KOUT, 175) 

B05A1870 

648 

175 

FORMAT (2X21HDE BUG  FNLE»6NLE  »SPNLE) 

B05A1880 

649 

180 

FORMAT (/2X1P11E10.3/(12X1P10E10.3)) 

B05A1890 

650 

WRITE  <KOUT,180>  (ENL ( I) , 1= 1 ,NNLEQ) 

651 

C 

SEEK  MAXIMUM  ERROR  FOR  EACH  CONSERVED  QUANTITY 

652 

190 

M*2 

653 

MM*MAT 1 J 

654 

00  200  I=l,NRNl 

655 

CALL  ABNAX(MM-1,ENL(M> ,ENLM  (I) ,IENLM(I)> 

656 

IENLM(I)  =  IENLM<I)+1 

657 

M*M+MM 

658 

200 

MM=MAT2J 

659 

C 

SOLVE  REDUCED  SET  OF  EQUATIONS 

B05A2070 

660 

IF  (KR(Z).LT.O)  RETURN 

661 

c 

SCRUNTCH  DEFINED  ROWS  OF  AM  MATRIX  TO  THE  TOP 

B05A2090 

662 

LSKIP=MAT1J*1 

B05A2100 

663 

L=1 

B05A2110 

664 

LL=0 

665 

DO  240  M=1,NAM 

B05A2130 

666 

L=L  +  1 

B05A2140 

667 

IF(L-LSKIP)  235,230,235 

668 

230 

LSKIP=LSKIP+MAT2J 

669 

LL=LL+1 

670 

00  231  J=1,NNLEQ 

671 

231 

OQJNL(J,LL)=AM(L,J) 

672 

DELQJW(LL)=-ENL(L) 

673 

L-L  +  l 

674 

235 

ENL<M) *ENL (L) 

675 

DO  240  J=1,NNLEQ 

676 

240 

AM  <M, J) *AM (L,  J) 

B05A2180 

677 

c 

THE  FOLLOWING  ROUTINE  REARRANGES  COLUMNS  OF  THE  NOW  RECTANGULAR 

B05A2250 

678 

c 

AM  MATRIX, ACCORDING  TO  LAR , INVERTS ( (AM (I, J) ,J=2, NAM) ,1*1, NAM)  AND 

B05A2260 

679 

c 

MULTIPLIES  THE  INVERSE  TIMES  THE  REMAINING  COLUMNS  OF  AM  MATRIX 

B05A2270 

680 

c 

AND  TIMES  THE  ENL. 

B05A2280 

661 

CALL  ETIMEF (ZE IT (5) ) 

682 

CALL  RERAV(NAM,AM,NSP  <  1 , ENL , 1,LAR, IX , 153) 

B05A2290 

633 

CALL  ETIMEF(2EIT(6) ) 

684 

DO  243  1*1, NAM 

685 

243 

AM(I,NAM)=AM(I,1> 

686 

244 

IF (KR  (17} )  245,265,245 

687 

•s  t  C 

CONTINUE 

B  05A2310 

688 

250 

FORMAT (2X1P11E10.3) 

B05A2320 

689 

WRITE! KOUT ,255) 

B05A2330 

690 

2 '-'5 

FORMAT (2X18HOEBUG  FLE, GLE , SPLE) 

B05A2340 

691 

WRITE (KCJT,250) ~ LE , GLE 

B05A2350 

692 

IF  (NSr-Ml)  265,265,260 

B05A23b) 

693 

260 

W*\ITE ( KOUT, 250 )  ((SPLEd,K)  ,K=1,NSPM1)  ,I*1,MAT2I) 

B  05A2370 

694 

C1 

►SURFACE  OPTIONS  TREATED  IN  RNLCER  WITH  REDUCED  NONLINEAR  SET 

695 

265 

CALL  ETIMEF(ZEIT(7) ) 

696 

CALL  RNLCER 
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697 

CALL  ET1HEF<2EITC8)> 

698 

C 

DETERMINE  MAXIMUM  NONLINEAR  ERRORS 

699 

C 

EQUIVALENCE  ENLM  TO  FNLEM,  GNLEM,  ANO  SPNLEM 

700 

595 

OO  605  I=1,NRNL 

701 

IF (AOS (ENLM (11 ) »ABS (ORNLII ) ))  600*605,605 

702 

600 

ENLN(I)  =  DRNL ( I ) 

703 

IENLHCI)  x  1 

704 

605 

CONTINUE 

705 

ENLMf  1I=ENLMC1)  *10. 

706 

ENLM (2)SENLM(2 ) /10  00. 

727 

CALL  ABMAX(NRNL*ENLH*ENLMMf INLMM) 

708 

enlmm=enlhh/io. 

709 

ENLH(l)sENLMCl) /10. 

710 

ENLM (2) *ENLM(2) *1000. 

711 

ELMM  *  aBSlELMH) 

712 

BIP  x  KIP 

713 

ENLMN  =  ABSCENLMM)  ♦  3.  *  BIP 

714 

C 

EVALUATE  NONLINEAR  CORRECTIONS  FROM  THE  REDUCED  SET 

715 

DO  615  1=1, NAN 

716 

L  =  L  ARID 

717 

DVNL(L)  =  ENL(I) 

718 

DO  615  K=1,NRNL 

719 

J  x  K  ♦  NAM 

720 

615 

OVNL(L)  =  OVNL(L)  *  DRNL  CK)  •  AM(I,J) 

721 

DO  620  K=i,NRNL 

722 

I  =  NAM  ♦  K 

723 

J  =  L AR  (I) 

724 

620 

OVNLCJ)  =  DRNL CK) 

725 

c - 

-RECYCLE  IF  ALPH  HANTS  TO  GC  NEGATIVE 

726 

IF'0VNL(i)*0.9*ALPH>  626,626,629 

727 

626 

NUL=0 

728 

DO  627  K=NUL»NSPNi 

729 

HALLJ<KI=VJKH(KI*C3 

730 

627 

DELQJW  <K*1>=0. 

731 

LIM=NAN*1 

732 

DO  628  I=2,NNLEQ 

733 

OUN=AN (I,NAM) / AN(1, NANI 

734 

ENL(I>*ENL<I)-ENL(i>*DUM 

735 

DO  628  J=LIM,NNLEQ 

736 

628 

AM<I,J)3AM{I,J)-DUM*AMI1,J1 

737 

ENL (1) *0. 

738 

DO  631  JxLIM,NNLEQ 

739 

631 

AM  (1, J)  =  0. 

740 

ITS=ITS*1 

74  i 

EASt=AMINl<EASE,0.2J 

742 

IF (ITS-51)  244,244,850 

743 

6  29 

CONTINUE 

744 

C- •  -  -  ■ 

•EVALUATE  LINEAR  CORRECTIONS 

745 

DO  630  1=1, MATH 

746 

00  639  J=1,MAT 1 J 

747 

630 

FLECI)  =  FLE(I)  -  OVNL f  J>  *  8Ai<I,J> 

748 

JJ  =  MAT1J 

749 

DO  635  J=1,MAT  2 J 

750 

JJ  =  JJ  +  1 

751 

00  635  I=1,MAT2I 

752 

635 

GLECI)  =  GLECI)  -  OVNL ( JJ)  *  BA2(I,J) 

753 

C0RAR{1)*DVNL<1) /ALPH* 0.5 

754 

L=NETA 

B05AU  010 
B05A4020 


B05A4160 


805A4180 
B05A4190 
805A420C 
B05A4210 
B05A4220 
B  C5A4230 
B05A4240 
B05A4250 
B05A4260 
BC5A4270 
B05A4280 


ENTR-MOD 

ENTR-MOD 


ENTR-MOD 


B05A43Q0 
B05A4310 
B05A4320 
BC5A4330 
B05A4340 
80S  A-';  350 
B05 A»;  360 
B05A4370 
B05A43  80 
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755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

775 

776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 
7  97 

794 

795 

796 

797 

798 

799 

800 
801 
802 
803 
604 

805 

806 
807 
8Q8 

809 

810 
811 
812 


J=MAT1 J*2 
00  640  I=2,NETA 

CORARCI)=OVNl.(J)/10000. 

640  «J=  J+l 

IF  (NSPHl)  665,665,645 
645  CO  660  K=1,NSPM1 
00  650  J*i,HAT2J 
JJ  -  JJ  ♦  1 
00  650  I*i,MAT2I 

650  SPLE(I,KI  =  SPL£(I,K)  -  DVNL(JJ)  *  BA2fI,J) 

J=MATl J*K*MAT2J+2  ' 

DO  655  1=2, NET  A 
L  *  L  +  1 
CORAR (L )=OVNL (J) 

655  J=J+l 
660  CONTINUE 
665  CONTINUE 

IF(EASE-0.2)  673,670,670 

670  IF<0.33*CORAR(ICORM)/CORMA»  671,675,675 

671  BUNP=BUMP*2.0 
GO  TO  675 

Vrl  ^M^1!J;/0^ORflR<ICORM,/CORM/‘,*°*25}  ^4, 674, 675 
675  CALL  ABHAX(L,CORAR,CORMA,ICCRM) 

IF  ( KR ( 17) )  680,680,685 
680  IF  (KR ( 19) )  690,705,690 
685  CONTINUE 

KR (17)  =  KR (17 )  -  i 
690  CONTINUE 

695  CFA0l\MAET^HXE3F8^?^9?,0RRECTI^S  *NL’NL»FL  "NO  GL,S PL) 

WRITE ( K0UT,696 )  ZEIT 

696  FORMAT (5X33HTIHES  BEFOR  AND  AFTER  . /6v  9HCHPMrSTRVPX 

WRITE(KOUT,250)ORNL 
WRITE ( KOUT ,250)  OVNL 
WRITE ( KOUT ,250 ) FLE, GLE 
IF  (NSPM1)  705,705,700 

705  CH^irT'25°,t(SPLE(I^’  »Ksl,NSPHl)  ,1=1,  NAT  21) 

CORRECT  PRIMARY  VARIABLES 
DUM  =  .05  /  BUMP 

EASE=AMIN1(1,5*EAS£,1. 0,DUM/A8S  (CORMA) ) 

BUMPeAM4xl(BU*F»»02/ABS(CCRMA>) 

710  {r  ^!i";"m"n:7,!!ruEm’*''s'F'3',,,/'BS'0,"'-,5,,1-E--3»'*- 

715  DUM  =  KR ( 13) 

EASE  =  AMINKOUM  /  10., EASE) 

720  IF  CEASE  -  1.0)  725,740,740 
725  00  730  1=1,313 
730  FLE(I)  «  FLE(I)  *  EASE 
00  735  1=1,153 

735  OVNLCI)  =  UVNL(I)  *  EASE 
740  CONTINUE 

PIEASE  =  PIEASE  *  (1.  -  EASE) 

IF  (TF2)  745,750,750 
745  TF2  =  EASE  *  DTEMP  -  TF2 


B05A4430 

B05A4440 

B05A4450 

B05A4460 

B05A4470 

B05A4480 

B05A45 10 
B05A4520 


B05A4540 

BQ5A4550 


B05A4580 

B05A4590 

BQ5A4600 

B05A4610 

B05A4620 

B05A4630 

305A4640 


B05A4650 
905A4660 
B05A4670 
B05A4680 
B05A4690 
B05A4700 
B05A4710 
B05A4720 
8  05A4730 


B05A4750 

B05A4760 

B05A4770 

B05A4780 

B05A4790 

B05A4800 

B05A4810 

605A4820 

B05A4830 

B05A4840 

B05A4850 

B05A4860 
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813 

750  NUL=  0 

814 

0FW£=F(1,NETA)-F<1,1)-XM(5)/ALPH 

entr-moo 

815 

DO  790  I*1,NET A 

816 

NI=NETA*I 

817 

N2l*NElA+NI-2 

618 

F(2,I)*F(2,I>*DVNL(I+3> 

819 

F(4,I)*F(4,I)*FLE(N2I> 

820 

IF  11-11  760,760,765 

821 

760  F ( 1, 1) *F (1,1)  ♦  0VNLC2) 

822 

F(3,1)*F<3,1>+DVNU3> 

823 

GO  TO  770 

824 

765  F  <1, II *  F C 1, II +FLE  CI-ll 

825 

F(3,I)*F<3,I)+FLE(NI-2I 

826 

770  LPI=HAT 1J+I+1 

827 

00  785  K*NUL  »NSPM1 

828 

IF (I-NETA)  772,771,772 

829 

771  SP (1, I,K)*SP(1, I»K) tSPLECl ,K1 

830 

GO  TO  7?3 

831 

772  SP(1,I,K)=SP(1,I,K)+0VNL(LPD 

832 

773  SP(3»I,K)=SP(3»I,K) ♦SPLEINI,K> 

833 

IF(I-l)  775,775,780 

834 

775  SP(2,1,K)=  SP  C  2 , 1, K)  ♦  OVNKLPI-l) 

835 

GO  TO  785 

836 

780  SP(2,I,  K)=SP(2,I,K>  ♦  SPLEd  ,K) 

837 

785  LPI*LPI+MAT2J 

838 

790  CONTINUE 

839 

ALPH*ALPH*OVNL(ll 

840 

IF(KR( 19). GTa0) WRITE (KOUT, 250) CFC2, J> » J*l» NET  A) , (G(1,J),J*1, 

NETA) 

,  ENTR-MOO 

841 

l((SP(l,J,K),Jal,NETA), K*l, NSPHil , ALPH 

ENTR-MOO 

842 

IF  (ITS  -  49)  850,840,850 

B05A5300 

843 

840  IF  (1777  -  777)  845,850,845 

B05A5310 

844 

845  1777  =  777 

B05A5320 

845 

ITS  =  30 

B05A5330 

846 

850  CONTINUE 

BC5A5340 

847 

if:kq(io).gt.-i)  return 

848 

IF(KQ(10).LT«-1Q)  RETURN 

ENTR-MOO 

849 

RETHMO*-C3*RH0E(IS) *UE (IS) *DFWE 

ENTR-MOO 

850 

IF(RETHNO.GT.RETR)  KQ(10)«-10 

851 

XFIRETHMO.LT.RETR)  KQCIOIb-1 

852 

RETURN 

B05A5350 

853 

ENO 

605A5360 

854  C  805C 

855 

SUBROUTINE  RNLCER 

856 

DIHENSIONDOJRNL (  71,1) 

B05C  003 

857 

OIMENSIONOELQJW(i)  ,OQJNL ( 153, 1>  ,WALLCJ(1> 

B05C  0(4 

858 

C0KN0N/8LQCCM/  HOA (  71),  HOB<  71) ,NSPEC, FR (  71 , 15) ,W (3) , l|F ( 10) 

805C  5 

859 

1  , LEFS (10) ,PIEASE,LEFH (10) , L2,L3 

ENTR-MOO 

860 

C0MN0N/8UMC0H/  BUMP, CORN A, EASE, I CORN, MOOT, TFZ,I777, OTEHP, 

KIP, I*  805C  7 

861 

COMMON7CRBCON/HCAR8, INIS, STEF, AQUH,iOUN,COUN,MTEF,NNATfENlSC 

»ENI$T  805C  8 

862 

1 1 HPG, ASU (3) ,BSU (3) , HPYG(J) ,HCMAR(3> ,EHIV(J> ,KS(40> ,XSU 

B05C  9 

863 

COMMON/EOGCON/  PCI40,  1>,PTE(40,  1),SPE(  8,40,  1) 

,  OUES 

,  805C  A9 

864 

1UE(40> ,RHOC(40) , VNUE (40),TE(40) ,UEOGE , OUEOGI , 02UCOG, VHMf , CGE 

» C90 

ENT R- MOO 

865 

2,OSIP(40) ,H)$IP*TTVC,TVCC(40) , HE  A (40) ,SF(20),CS(28> ,CSPR( 20) 

, 

ENTR-MOO 

866 

3CG(20) ,CGP(2Q) ,SREF,GEP,NEN,UINF,RH0INF,MIHF,PINF 

EHTR-MOO 

867 

COMMON /EPS COM/ EL CON, YAP, CL  HUH, SCT »PRT , REO,OVS ,RNOVS ,PI ,PI H ,CL , 

805C  10 

868 

1  EPSA (15) ,EPSi,EL(15),0PI(15,2),tHEPC,TREF,RETR,VINTR(l5) 

CHTR-HOO 

869 

COMMON/EQPCOM/  R8(  71,2>,RC(  7l,2),R0(  7i,2),RE(  71,2) ,RF( 

71,2) 

,  805C  12 

870 

1  TU (  7l,2),FF<  7l),FFA,IFC(  7l> , ATA ( ifl) , ATB ( 1 0) , »TC ( 10> ,H AT t  i  8>  , 

805C  13 
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2  KAT(10),IRU0>  ,IZ,KZUQ>  ,LA«I  (  7iV  ,P,Z,TK(10,  7),VNC  7  J)  ,  805C  16 

3  VNU (  71,10) ,ITFF,XR2,HCH,NCV,MN,WTMf  71),YYV<  7i',VN<  71),GGf  71) 0O5C  1$ 

6  »  TQ  < 1 0 »  7),EP0VR<, SIGMA, 3ASP0L  B05C  16 

COHMON/EQTCOM/SIP,HIP, EEL, EENL,FLXQ,CPF,XRE, IER, AA,XIT$,IM, II, lit, 855C  17 

1  NODE, HHELT, SMELT, TNAr, THIN, MELT, SUMNySUHL, MS, MSS, 8X,ISP2,XSP0,  805C  10 

2  ISP,KKJ,SVA, SVB,SVC,SVO,SUhC,FFF,CMF, EP,RV,IFCJC,MTC,MTL , JC,HMG,  Bfl5C  19 

3  CCPG,TTNIN,TTHAX,L7,L8,XB (11>,EB(10)  ,EBLClC»  ,A(  16, 16)  ,38  il*!» ,  ENTR-HOO 


1,LAR(153),BA1<*3,18),BA2<30,1S) 

COMHON/FlXCOH/O£LQM,0£LJM»  8)  ,QQNL<153> ,DJNL <153,  8), HALLO 

1 ,  MALL J (  8) ,3M, V  J<N (  9) , TPMALL 

COHMON/HISCOH/C1,C2,C3,C6,  ALFM0»8fTA,ZN(6,16)  ,2G<6, 16>  tZ$P<6,  1%, 
1  I,XX(60),HF(15,5),HG(15,3),HSF<15,3,  8) ,HALPH,MUE,NNJE,HFN,0lX2 

2, CJM<60> ,BETAH<68> 

COMMON /INTCOH/  XR(20)  ,  KIN,  XCUT , HATH, HAT 21 ,PATlJ,MA T2J,NET A,  I , IS 


fconnuKULWH/NfUB,  ii  iSmi  «,*g,  ij 

L,RHOVM (AO,  1),FLUXJ<  3,60,  1) ,  IMN ,1 TM , IFN , X'PN,XRMOVN, IFLUXJ 
EQUIVALENCE (DELQW.OCLOJM) , (CONI , OQJNL ) , (MALLQ, MALLOJ) 
OINfNSIONCORAR I 1 ) 

EQUIVALCNCEIC0RAR(1>,AN(1) ) 
taUlVALENCCUN.OQJRNL) 

EVALUATES  RCOUCCO  SET  OF  00*1  INO  DJML.  NOTI...OONL  FOLLONEO  IT 
OJNt  IS  EOUIVALENCEO  TO  OQJNL  FOR  CONVENIENCE  OF  FQLLONlNC  LOOP. 
AL SC,  THE  RCOUCCO  SET  OOJRNl  IS  COUIV.  TO  AMD  FOR  STORAGE  ECO*. 
CO  275  I*i,NRNL 

H  a  V  4  MAM 


■L  JUf  i  niVUVLW  J  L  «  w  u 

CO  775  f*I,NRNL 
n  •  I  ♦  NAM 
L  •  LARtR) 

00  275  X*1,MSP 
OOJRNL tX*>t  -  OQJNL <L,*> 
00  275  J» 1 ,HAM 
JJ  «  LARfJ) 


B05C  25 
805C  » 

B85C  27 
B05C  28 
B05C  29 
805C  30 

B05C  31 
905C  32 

16,  8605C  33 

LX2  B05C  36 
B05C  35 
,IS,N605C  36 

( 15)  B05C  37 
(60)  B05C  38 
805C  39 

B05C  60 
B05C  61 
(60)  B05C  62 
NO,  BQ5C  63 
B05C  66 
5)  B05C  65 
),  OB05C  66 
K(  S)B05C  67 
0)  805C  69 

IL  805C  69 

RMOP  B05C  5G 
5)  BC5C  51 
B05C  52 
805C  53 

eosc  56 
B05C  $5 
§'5C  56 

B05C  57 
B05A0380 
805AO6/Q 
805 AQ6A0 
805A0690 
10542390 
OR.  8  05 A  ?6  fc 
CON.  B05A2610 
B05A7670 
805A263: 
Bti A2460 
•85A2659 
•05A7660 
B05A2670 
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921 

IF  (I  -  1)  275,270,279 

B05A2990 

930 

270 

OELQJM(K)  «  DCLQJMdO  *  DQJKL(JJ,K)  "  CNLCJ) 

B05A2580 

931 

275 

DQJRNl(l,K)  >  OQJRNL (I ,K)  •  0QJNl(JJ,K>  • 

AM  J,H) 

B05A2510 

932 

RH06S  ■  Cl  •  F  (1,1)  ♦  MFCl ,5) 

B65A2520 

933 

JO  276  M1,NSP 

ENTR-MOO 

939 

276 

MALLQJ(K)>MALL0J(K)90EL0JM(K) 

935 

:F(KR(9)-2)  315,285,315 

EMTR-MOO 

936 

265 

30  298  L“l»3 

0B5A255O 

93? 

298 

MIL)  ■  FLUXJCL ,IS,  IT) 

B05A2560 

938 

C 

PREPARE  OQJRNL  A NO  MALLQJ  FCR  SURFACE  NASS 

BALANCE 

B09A2570 

939 

299 

MStRI  >  MCI)  ♦  M(2)  ♦  N(3) 

809A2580 

990 

00  310  A*2,NSP 

0O5A259O 

991 

OOJRML 1 1,  K)  a  OQJRNL <1,K)  /  Cl 

B09A2610 

992 

MALUiK  -  1)  ■  NALLJCK  -  1)  -  GQJRNL(1»K) 

•  RMOVS  -  OQJRNL(2,K)  • 

S05A2670 

993 

16(1,11 

B05A266G 

999 

00  310  KK>3,NftNL 

B05A2690 

995 

310 

NALLJCK  -  1)  •  MALLJCK  *  it  -  OOJRNL  CKK,K) 

•  SP(1,1,KK  -  2) 

B05A2700 

996 

315 

IF  (Krci6)  -  1)  395,398,328 

B65A2710 

997 

320 

IF  CKRC17))  390,390,335 

805 A  2720 

998 

325 

FORMAT C52H  DEBUG  OQjRNLCNRAL, MSP)  BY  ROMS 

,  0ELQM(5> ,MALLQJ  (5) / 

805A273O 

999 

J 

L  (6X1P10E10.3) > 

805A2790 

950 

330 

FORMAT C35M  OCBUG  OQJNL (NNLE0,NSP)  RON  BY 

RCN  t  < 8X1P10E10 «  3) ) 

f 05A2750 

951 

335 

MRITE ( KOUT ,338) ( (OQJRL(!,K) ,K>1,NSP) , I»l, NNLEQ) 

B05A2760 

952 

390 

MRITE (KOUT, 325) (COQJRNL (I, K),Kal,NSP),Ial, 

MRNL) .OELQM, DEL JM, HALLO 

,8flSA2770 

953 

1MALLJ 

B05A2780 

959 

I X  •  2 

B05A2790 

955 

395 

CONTINUE 

B05A2800 

958 

IF  (KIP)  396,396,375 

957 

396 

IF(X*(6>-2>  397,355,395 

958 

397 

0RNLC1I »FM CIS,  IT)-F( 1,1) 

959 

0RNL(2)*B. 

968 

IFCNSPNl)  350,350,398 

961 

398 

00  399  K*t,NSPMl 

962 

OR  ML  (K*2) *SPM(  K,  IS ,  I T)  -5P(  1 , 1,  K) 

963 

399 

ORNL(  2)*ORNL(2)90RNL(K»2)*01KM(K) 

969 

350 

IF  (KR ( 11 ) )  351,351,392 

965 

351 

ORML  <2)» (TM(IS, : T) -T (1 ) -OR ML (2) ) FOTMM 

966 

GO  TO  565 

967 

352 

ORML (?) *HN (IS,  ITI-6(l, 1) 

968 

60  TO  595 

969 

355 

IF  (KR(il)  -  1)  375,365,368 

B85A2830 

978 

360 

IF  CKR(ll)  -  3)  378,375,378 

805*2890 

97l 

365 

KQU)  *  2 

B  8  5  A  2  8  5.0 

972 

ORML(?)«HM(IS,!?)-G(l,l) 

97J 

NIP>(6(1,1)*CASC«(NH(IS,IT) -6(1,1) )}/!.« 

979 

60  TO  368 

975 

370 

KQIlMi 

976 

IF (T ( 1 1-1866*  >  379,379,372 

977 

372 

IF  (EASE1-*  851  360,379,368 

EMTR-MOO 

976 

379 

TM(IS,IT)a8MAXKT(t)  ,1988.) 

979 

375 

T I tl«T (11 *CAS€* (TMIIS,IT)-T(1)) 

988 

KIP»MAX8(KIP-lt8) 

981 

376 

KQ(1)«8 

962 

388 

<Q(6>  a  2 

80542610 

963 

KQ (91  •  8 

B85A2820 

969 

IF  (KR (7) ) 365, 385,398 

965 

385 

CALL  COUIL(KQ,0.»PC(IS,IT) » 

B83A26J0 

966 

390 

KO  (61  *  • 

805426V 
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9$7 

988 

989 

990 

991 

992 

993 
999 

995 

996 
992 

998 

999 
1000 
1C01 
1002 
1003 
1009 
10  05 
1006 
1002 
1008 

1009 

1010 
1011 
1012 
1013 

1019 

1015 

1016 

1017 

1018 

1019 

1020 
1021 
1022 
1023 
1029 
1029 
1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 
1039 

1035 

1036 

1037 
1(36 
10  39 
1096 
1091 
1692 
1093 
1099 


FMIStlTI  «  (RHOVN(IS,IT)  -  HF C  1,53 >  /  Cl  B05A2950 

IF  (<R  ( 1 1)  - 1>  391 f  392  >391 

391  ORNL(2)>(HN(XS,XT)-G(l,l>)/EASE 

392  0RNL(1>»FN(IS,XT)-F(1,1> 

XF(NSPHl)  595,599,393 

393  00  399  <«l,NSPNi 

399  DRNL(K*2>«(SPM(K,I$,IT)-SP(1,1,K>)/EASE 


GO  TO  595 


c 

KIP«1  IF  USING  ASSICNEO  TEMPERATURE  ON 

ENERGY  BALANCE  FOP 

TEFLON  0O5A297O 

395 

*IP  •  0 

B05A2900 

N(3)«RM0VS-M(2> 

K9R»KR(9)-2 

entr-moo 

GO  TO  1950, 960, 990, 9001, K9R 

ENTR-MOO 

990 

HHAT  «  NTEF 

ENXS  *  ENIST 

IF  (ITS  -  1)  965,965,905 

B05A3070 

905 

IF  (TFZ1  965,965,910 

B05A3080 

910 

IF  (ABS(T(1)  -  TFZ)  -  10.)  965,935,935 

B05 A3090 

915 

IF  (OTENP  •  OUH2)  990,990,920 

B05A3100 

920 

IF  (OUN1  •  20.  ♦  MOOT)  925,925,930 

eOiASiio 

925 

TFZ  «  T ( l )  -  50.  /  OTEHP  •  ATENP 

B05A3120 

BUMP  ■  1. 

B05A3130 

GOTO  935 

B"SA3190 

930 

TFZ  »  T(1J 

935 

T¥(IS,IT)  a  TFZ 

B05A3160 

GOTO  995 

B0SA3170 

990 

TM(IS , IT)  *  T ( l )  ♦  50.  /  OTENP  •  ATENP 

B05A3180 

BUMP  *  1. 

805A3190 

995 

KIP  «  1 

8  05A  32  (0 

GO  TO  990 

ENTR-MOO 

950 

ORNL(l)  *  TH(IS.IT)  -  T(l> 

ENTR-MOO 

AM  (  1,  9)  «  0. 

ENTR-MOO 

AN (2, 5)  »  OTMW 

ENTR-MOO 

00  955  K*1,NSPM1 

ENTR-MOO 

955 

AN(1,K  ♦  5)  *  OTKM(K) 

ENTR-MOO 

960 

MMAT»MCARB 

EMIS*ENISC 

965 

TFZ  *  0. 

OUM1  *  STEF  *  EMIS  *  (T(l)l  •  •  3.  *  C3 

805A3330 

ORNL (2)  *  -  WALLO  ♦  RHOVS  *  (MM AT  -  G(l,l>)  -  DUM1  •  T ( 1* 

♦  RAOS ( 

lIS>*C3»M(2>*(MPG-HNAT) 

OUH2  «  ORNL (2) 

B05A3360 

AN(2,9)  »  OQJRNL (1,1)  ♦  Cl  •  (G(l,l)  - 

HNAT) 

OUM1  »  OUM1  •  9. 

B05A3360 

AM(2,5)  -  OQJRNL (2,1)  ♦  DU Ml  •  OTMM  ♦ 

RHOVS 

805A3390 

00  970  K* 1 ,NSPHl 

S05A39 (0 

970 

AM (2, K  ♦  5)  *  OQJRNL (K  ♦  2,1)  ♦  0UN1  * 

OTKN(K) 

B85A3910 

IF (KR  (9) -9)  510,975,995 

entr-moo 

975 

ORNL ( 1 ) ■  ¥LNKM 

00  972  K*  1 » I Z 

entr-moo 

J«-IR (K 1 

FNU(J)»TNU(ISU,  J) 

IF  (LCF  (K)»LCFM(K> )  971,971,97? 

971 

FNU(J) *0. 

972 

CONTINUE 

00  9 7 (  K«1,IZ 

entr-moo 

976 

ORNL  < 1 ) *ORML ( l  )  ♦ YM (<)*FNU(*» 

AM  ( 1 , 9 )  ^  o. 

B05A3990 

90 
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1045 

DUH1  «  TCM  /  T (1) 

B05A3650 

1046 

*H(1,5>  «  0UN1  •  OTHM 

1 047 

00  477  K«1,1Z 

ENTR-HOO 

1048 

477 

AH(l,5)aAH(l,5)-0lPH(IC>*FNU(K) 

1049 

00  488  K«1,NSPH1 

B05A3470 

1050 

AM(1,IU5>  ■  DUHl *DT<M( K) 

1051 

00  488  KK«1'IZ 

EMTR-HOO 

1052 

480 

AH(1»K*5)»AH(1»  K»5)-DLPK(K*KKI *FNU(KK) 

EHTR-HOO 

1053 

GOTO  510 

B05A3490 

1054 

490 

MOOT  *  C3  •  EX  Pi  (ADUH  *  TM(IS,IT>  ♦  BOUH)  •  THUS, IT)  ♦  COUH) 

B85A3510 

1055 

KIP»KXP*1 

1056 

N(3)  *  MOOT 

B05A3540 

1052 

M(2)  •  0. 

B05A3550 

1058 

M(l)  •  0. 

805*3560 

1059 

GOTO  295 

B05A3570 

1060 

4  95 

MOOT  •  C3  •  £XP(  ( AOUH  •  T(l)  ♦  SOUK)  •  TCI)  ♦  COUH) 

B05A3580 

1061 

AH (If 5)  *  MOOT  •  ( ADUH  •  2.  •  T (11  ♦  60UHI 

B05A3590 

1062 

500 

OPML(l)  *  PHOVS  -  MOOT 

605*3600 

1063 

OUH1  a  A8S(0ftNL(l) > 

B05A3610 

1064 

AMI, 4)  *  -  Cl 

B  05*  3620 

1065 

00  505  X»1,NSPM1 

B05A3630 

1066 

505 

AN(1,K  ♦  5)  a  AN(1,5)  *  OTKM(X) 

805*3640 

1062 

AH (If 5)  •  AH(1 1 5)  *  OTHM 

B05*3650 

1068 

510 

00  520  K«1,N3PH1 

005*3660 

1069 

ORNL(M2)»NALLJ(K)-RHOVS*(SP(1,1,K)-TO(K,L2>  *MTH(K) >*M(2) •MtH(K) 

• 

1020 

i 

L  (T0(K,L2)-TQ(K,L3)) 

1071 

00  515  KK»l,NRNl 

605*3680 

1022 

515 

AH  (K  ♦  2f  KX  ♦  3)  *  OQJRNL (KK, K  ♦  1) 

805*3690 

1023 

AH(K*2,4)«AH(M2,4>*C1MSP(1, 1 , K)-TQ ( K, 13) «kT H(K) ) 

1024 

520 

AH (X  ♦  2» <  ♦  5)  ■  AH( <  ♦  2  f X  ♦  5)  ♦  RHCVS 

605*3710 

1075 

II  »  0 

805*3720 

1076 

IF(KR(9)-3)  525,540,525 

EHTR-HOO 

1077 

525 

IF  (N( 3) )  540,530,530 

1078 

530 

0RNL(1)*(M00T-M(3) )/Cl 

1079 

MC3)«M00T 

1080 

00  535  K*2,NRNL 

805*3760 

1081 

535 

ORNIOCI  *  DRNL(K)  -  ORNl(l)  •  AH(K,4) 

605*3770 

1082 

II  *  1 

BP5A3780 

1083 

540 

IXX  *  IX 

805*3790 

1084 

CALL  RERAT  (NRNL-  II,  AH  (11*1, 11*4  )  ,0,ORNl(!IM>  ,1,0,1XX,  153) 

B05C3800 

1085 

IF  (KR(9)  ♦  RIP  -  6)  560,545,560 

605*3820 

1016 

545 

OTEHP  ■  DRNM2)  •  OTHM 

B05A3830 

1087 

00  55  0  K*-.  MSPH1 

805*3840 

1088 

550 

OTEHP  a  OTEMP  ♦  OTKM(K)  *  Om(K  ♦  2) 

805*3858 

1089 

ATEHP  a  ABS(OTEHP) 

B05&3E 60 

1090 

IF  (ATEHP  -  50.)  555,560,615 

805AT47.' 

1091 

555 

TFZ  a  -  T(l> 

805*3880 

1092 

560 

CONTINUE 

805*3890 

1093 

MOOT-MU) 

1094 

595 

return 

1095 

ENC 

805A5360 

1096 

CB06A 

B06A  801 

1097 

SUBROUTINE  LIHCER 

006*  002 

1098 

CONHON/EOGCOH/  PE (40,  1>,PTE(40,  1>,SPE<  8,40,  D ,0UES 

,B(6«  3 

1099 

1UC  (481  ,8M0f  (4  0)  ,VHUE  (40>  .TC  (40)  ,UEOG£  ,OUEDC»  ,02UE0C,  V»«  ,  CCE  ,  C9Q 

ENTR-HOO 

1180 

( 

!,0SIP(40), I0SIP, TT VC, TTCC (40), HE A (4 8) ,SF(20) ,CS(29), CSPR <  20 ) , 

EMTR-HOO 

1101 

3CGC20)  ,CGP(20)  , SREF, GEP.NEN 

ENTP-HOO 

1182 

CO*WON/ERRCOH/FtE(  43)  ,CLE  ( J0>  .SPLEUO,  8>  ,  Cl  A(;i  J)  ,FLEN,  CLEH 

806*  6 

91 
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1103 

1,SRLEH(  8),ElN(lS),ElNN,IFLr,IGlM,IS*»LN(  S)  ,NClN,HHM,OFl  <63) 

806A 

7 

not 

2,061 (30) ,OSPL  (30,  0> ,FNLE C If) ,GNl£l 19) ,SRNlE (15,  S),ENLtl53) 

B06A 

0 

1105 

3,FNLEH,6NLCH,S)»1LEH(  0),  ENLHH, IFNIR, I SULK, XSRNLMI  S) 

806A 

9 

1106 

* ,  NCHLH,  XNLHN,OFNL (1 8)  ,OCNL  (if)  »0SFNl(l5,  S),ORNl(10> 

806A 

10 

1107 

C0NN0N/£TAC0N/ETA(15) , 0ET8 (15) ,0SQ<16> ,OCU( 16) ,81( 16), B2( 16) 

0O6A 

11 

nos 

1,LAR(153),0A1(63,1S>,SA2<3O,15) 

806A 

12 

1105 

CONNON/XNTCOH/  KR( 20) , KXN,KCUT ,HATlX , HaT?X , HOT | Jt NATSJ,HE TA, I, IS. N806A 

13 

1110 

IS, XT,  IT IH£ ,NSR,NSRN1 ,NAH,NLCO, NNLEQ,NRNL,  ITS, KARRA, C8AR, CASE (15) 

806A 

16 

ini 

2,1(0) ,  HNE,NON,KQ<10>  ,ITER,HITEN,KRl7,MT,N8T2,I0£NT,KR9(6e) 

0O6A 

If 

1112 

3,KAUX0,JTIH£,JSREC, NO (3) 

806A 

16 

1113 

C0NN0N/RRNC0N/TIHE4  50),RRE(6O>»RTCT(  5«>,CC(  50)  »S  (60)  ,ROXAR(60» 

806A 

X7 

lilt 

l,RNOSC,V*AR,NOISC,It>7SC(60),NSn(10),HSO(18),ITF(  50)  ,IRR£  ,RACNO, 

806A 

IS 

1115 

2CONE,RAOFl(  50>,RAOi(6O>,RAOS(6O> ,IRAO 

806A 

19 

1116 

C0HM0N7 VARCOM/F (t, 15) ,6 (3, 15) ,SF( 3, 15,  9) , AlRH 

806A 

20 

1117 

C  EVALUATE  LINEAR  ERRORS  FOR  FCKgNTUH  ANO  ENERGY 

SOLA 

SIS 

1119 

nelh*nsr*i 

SOSA 

019 

1119 

NENLN>NELN 

806A 

026 

1120 

NUI*0 

1121 

00  600  I*l,NATlI 

fNTR- 

MOO 

1122 

600  •A1(I,1>«9. 

fKTR- 

MOO 

1123 

00  601  1*2, NET  A 

1 J  2t 

IF  (X-2)  6006,6003,6006 

1125 

6003  IFOCRI IQ) )  6000,6000,6001 

1126 

*006  IF(I-N£TA)  6002,6005,6002 

1127 

*005  IF(KR(10)-i)  6002,6000,6002 

1120 

6000  OUH1*0 (*) 

1129 

0UH2*8 (5) 

1130 

0UM3*8 (2) 

1131 

0UN6*8(31 

1132 

0UH5»8(1) 

1133 

OUH6-1.0 

ll3t 

GO  TO  6002 

1135 

*001  0UN1*B(3) 

1136 

0UN2*0« 

113? 

0UM3*8 ( 1 ) 

1139 

OUN6*0» 

1139 

0UM5=1.0 

uto 

OUN6*0. 

11*1 

*002  COKTIMUE 

1  It? 

FLC(I-ll*-(F(l,I-ll*0ETI(I-l)*F(2,I-l)*0S0(I-l>/2.#F(3,I-m0CU( 

1163 

11-11 •(0UN1*F(6, I-ll*OUN2*F  (6, I) I -F ( 1 , I > 1 

lit* 

N*I*NC  TA-? 

11*5 

FLE(M)  *-(F(2,I-mOETA  » 1-1 > *F (3, I-l> ♦ DS0( I- I)  • (0UM3*F(6, 1-1 1 *OUNV 

1 

11*6 

1F(6,I))-F(2,II  1 

lit? 

M*M*1 

11*8 

00  603  **m*.,M5RNl 

1 1 19 

SFLCU  (SF(  1,1-1, *1*01  T  A  (I- 1)«SM 2,1-1, *)*0SC(f-l)  •(OUN3*SF(3, 

1150 

1  1-1,10  ♦0UN**SR(3,I,O>-SF(t,I.K)  ) 

1151 

*0  3  SmtN,A)«-(56(2,X-l,R)*0€TA(X-ll«OUN5*(3F  (3 , 1-1  ,X)  ♦0UN8*SR (3 , 7 ,«) 

1152 

1  l-SMl,  I,K>) 

1151 

W*  X*7*  NCT  A-3 

U5* 

*01  FLf (N1 «-(F(3,I-l)*OETA(I-l) *DUM5* (F (6 , 1-1 1  ♦OUN6*F  (6 , 11 1 -F  ( 3 , I) ) 

1155 

rL|(NATlIl*-OUN6*(F  (3,NCTA»-AlFH*KF»**ei«OCf  I 

ERTR-S80D 

1155 

iil(NATH,ll*-2.  *OUN6*OU€OGE*AIFN 

ENTR-ROO 

im 

IF  (ASS  OM 1  (MAT  11,1)1*07.0.)  CAU  MATSKSAl) 

ENTR- 

■MOO 

1151 

&i.ftl)*-(G<I,NCT4)-C6f  ) 

ENTR- 

■MOD 

1159 

CtE tNAT2|)»-OUN6*(G(2,«ET8) • AlP»*GfN| 

CRT#- 

■MOO 

1181 

IF(N$NN1)*0*,60*,*05 

92 
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1161 

1162 

1163 

116% 

1165 

1166 
1167 
1166 
1169 
1179 

1171 

1172 

1173 
1176 

1175 

1176 

1177 
1176 
1179 
1166 
1161 
1162 
1163 
1166 
116$ 
1 166 
1167 
1166 
1169 

1190 

1191 

1192 
1153 
1196 

1195 

1196 

1197 
1196 
1159 
1260 
1261 
1262 
1263 
1266 

1265 

1266 
1267 
1266 
1269 
1216 
1211 
1212 
1213 
1216 

1215 

1216 
1217 
1216 


665  CO  692  *»1»NSPH1 

SPLC  U,  *>  —  <SP  (1, META,  K)-SPE(K,  IS, IT) » 

SMLE(NAT2I,K)>-SP(2,NETA,K)  •  0UM6 
C  OC TERM INC  MAXIMUM  LINE  AH  ERRORS 

602  CAU  ASMAX(HAT2I,SPLE(1,K>  , SPLINOO  , ISPLM CO > 

696  CALL  ABMAX»«MT1I,FLE,FLEM,I7LM> 

CALL  ARNAX(MAT2I»GLE»6LEM, XGLN) 

ELHUMPLEM 

IF  INSPMD696, 696,697 

697  00  6M  1C- 3, MEL M 

696  ELM(KI>SML£H(K-2)*.l 

696  CALL  ABMAXCNELN, ELMfELMMfXLMN) 

C  FORM  PRODUCT  OF  A**-l  AN0  LINEAR  ERRORS 
669  CALL  MATSllFld 

00  676  K«MUL,N$RH1 
676  CALL  NATS2  SHE  Cl, XM 
RETURN 
CNO 

C9#7A 

subroutine  refcon 

COMMON /EOGCOM/  Pl(60,  1),PT((60,  ll.SPEC  6,60,  1)  ,0UCS 

&UEC691 , RH0EC69I  , TRUE C69I , TE  <601 ,UE0CE, 0UE061 , 02UCOG, VMMC, CSC ,C90 
2,OSIP(6C), IOSIP, TT9C, TVCC  C691 , ME A (6 91 , SF (29) , CS(20),CSPR(2Q) , 
3CCC26) , COP <201  ,SREF,6EP,NEN,UHtF,RHCXNF,MXNF,PlNF 
C0MM0N/NISC0M/Cl,C2,C3,C6» ALPHO, 9CTA,2M(6,  161  ,26  16,16)  ,2SPI6, 16, 

1  )  ,  XI  (69),HF(1$,5)  ,  M6C  19,3)  ,MSPCl5,3,  9)  ,MALPM,MUE,MHUC,MFM,OLX.» 

2, C3H(60>,RCTAH(69) 

COMMON/ IN TCOM/  <R(2I>  « XIM, XCUT,RATtI, NAT2X,MATlJ,NAT2J,NET  A, I ,  IS, 
lS,IT,NTIMC,NSP,NSPttl,NAN,NLEQ,NRLEQ,NRNU  ITS, KAPPA, CSAR, CA«( (1$) 
2,9(6),  MMC , NON, KQ f 193  , ITCN,MITEN, KR17 , ART ,MBT2 , IOCNT ,  KR9  ,60> 

3 ,  KAUXO ,JT INC ,J SPEC , MO (3) 

COTWOM/PRMCOM/T IME (  $9) ,PRf <69> ,PTET C  50),6C(  56) ,S(68) ,RO<A? (60) 

1 , RNCSE, VKAP.MOI SC, I DISC (66 ) ,NSO(19) , MSO (10 ) , ITF (  56) ,IPR( , R AONO, 
2COM€,RAOFL(  56 ) t RAOR (6 6) ,R AOS (6 9> , IRAO 

COMMON/TCMCOM/SPOUM (  9) ,OER  (69) ,0UMM1 (15) , SLOPE  (15) , Rf OUM ( 15 ) 
l,SOUHl (66>,SOUN?(68> ,F«OUM (66) ,XIC0M(69) ,FMCON(6g> ,FWINIT (  1 ) 

2 ,  XIINI T (  1),OUOS(  69) 

COMMOM/VARCOH/F (6, 1$),6(3,1$),SP(3,15,  9) , ALPN 
COMMON/ MALCQM/FM (69,  1),TM(66,  1>,NM(60,  1),SPN(  6-66,  1) 
l,RMOVX(66,  i)»FLUXJ(  3,66,  J) , IHM,ITM, IFM, ISPM,IRKOVW,  IFLUX J 
OATA  INR.IN0,IHI,INF/1NR,1PC,1NI,1NF/ 

7697  FORMA  T (6(1 0.6 > 

7666  FORMAT (11,(9.6,7116.6/ (6€1 6.6) ) 

9991  FORMAT (13,7(16. 3) 

196  FORMAT (12,(9.5,7(19.5) 

15  FORMAT ( IM1) 

16  FORMAT  (/,1X,23M0ISTAMC(,FT 

1 7  FORMAT  (/, 1*»  23NPRESSURf  RATIO 
16  FORMAT  (/, 1X,2 3N(MTROPT  0R0P.6TU/L9  R 
19  FORMAT  (/, IX, 23MMALL  (MTMALPT , 6TU/V9 


,9(12.9/(261,9(12.5)) 
,9(12. 5/(261, 9(12.5)) 
,9(12. 5/(261, 9(12. 5) ) 
,9(11. 5/(261, 6(i2.f)> 


29  FORMAT  (/,H,23NliALL  V(MP(IATURC,Q(6  R  ,9(12.5/(261,6(12.5)) 

21  FORMAT  (/, IV, 23NMALL  STRfAM  FUMCTTOfc  ,9C  1 2. 5/ (26*  ,  •(  12.  5  )  > 

22  FORMAT  (/,1X,23NMASS  FLUX.LC/SfC  FT»*2  ,9(12. 5/ (261,6(12. f I ) 

23  FORMAT  (/,tX,?3M(LCM€NTAL  MASS  FRACTION, 6( 12. 5/ ( 261, 6€  12.  5 ) ) 

79  FORMAT  (/ , 11,2 3NCOMP  FLUX.LC/SIC  FT»*2  ,1712.5/(291,6(12.5)) 
75  FORMAT  f/,lX,73NSTATIC  PRESSURE, ATM  , AC  12. 5/ (7**, AC17. 5 )  ) 


26  FORMAT  (/,1X,23MXI, (Li /SEC ) ••7 


,6(17.5/(291,6(12.5) ) 


B06A 

096 

866A 

966 

3  06 A 

967 

SOSA 

966 

C96A 

06* 

B06A 

051 

3I6A 

052 

806A 

053 

906  A 

056 

B06A 

955 

0C6A 

056 

8864 

057 

806A 

058 

8S6A 

962 

806  A 

065 

806  A 

066 

807  A 

001 

8074 

002 

,  807A 

3 

ENTR¬ 

•MOD 

EAT*- 

•POO 

CNTR- 

-MOO 

9B07A 

6 

8fl7  A 

T 

B07A 

8 

N?C7  A 

5 

807A 

10 

8  O'/A 

11 

8074 

12 

B07A 

1J 

807A 

16 

88  7  A 

IT 

807A 

lo 

8  0  7  A 

17 

8074 

1* 

8074 

19 

§3  7  A 

20 

8074 

21 

CKTR-MOO 

8074 

826 

(MTR-MOO 

T  1 7  A 

92* 

E9TR-MOO 

D  8  7  A 

627 

8174 

02* 

*974 

*29 

R97A 

938 

9974 

93l 

9074 

032 

»*7A 

033 

2074 

•  36 

2074 

•35 

9(74 

836 

2874 

837 

93 
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1219 

27  FCRHAT  </,lX,23HSETA  , 6£12.5/(2%X,9C12.5> ) 

897A  039 

1220 

29  FORMAT  (/, 1X,23HR0AAP  ,9E12.5/(2%X,9C12.  5) 1 

B97A  039 

1221 

29  FORMAT  (/,1X,23ME0GE  VELOCITY, F1/SCC  ,9C12.5/(26X,8E12.5> » 

B07A  060 

1222 

30  FORMAT  (/, 1X,23MNORMALI2EO  MASS  FLUX  ,9E12.5/<2%X»BC12.5)I 

897A  0%t 

1223 

31  FORMAT  (/,1X,23HKORHALXZEO  COMF  “LUX  ,*£12.5/(26X,9£12.5>  1 

B07A  0%2 

122% 

32  FORMAT  (/, JX, 23HINCIOENT  RAOIATION  FLUX,9El2.5/(2%X,9C12. 5) » 

1225 

33  FORMAT I/,1X,23H- 1/FLUX  KORM.FARAHETER  ,9E12.5/ (2%X,9E12.5> ) 

§974  9%% 

1226 

3%  FORMAT (//IX, 23MSTREAM  FUMCTIOM.LR/SEC  ,9E 12. 5/ <26X6212.5) 1 

entr-moo 

1227 

35  FORMAT (/, IX, 23HENTR0FY  CH7 NC£,«TU/L&  R,8E12,5/ <2%X,9£12.5> > 

cntr-moo 

1229 

36  FORMAT!/, IX, 23HENTHALRY  CHANCE ,0TU/LI  ,9212.5/ (2%X,t£l2.5l 1 

ENTR-MOO 

1229 

37  FORMAT l/2%M  SMOCK  ANClC,OECRCCS  6E12.5/ <26X9C12.5>> 

ENTR-MOO 

1230 

39  FORMAT (/2%M  SHOCK  ANGLE, RAOIAMS  *E 12.9/ (|%X9I 12. 5>) 

ENTR-MOO 

1231 

1532  IF  <ITEM*1)  1539,1539,1539 

99  7 A  951 

123? 

153*  I0SXR»1 

9974  052 

1233 

;frc»i 

907A  053 

123% 

19*0*1 

1233 

MEM*9 

ENTR-MOO 

1236 

00  19%9  I«1,NS 

9  07  A  056 

1237 

t5%r  OSIFC I ) *  6. 

B07A  055 

1231 

1939  IF  (IOfIF-ITEH)  1536,1537,1536 

ENTR-MOO 

1239 

1537  |f(KR(5)-$>  1522,1535,1536 

ENTR-MOO 

12%0 

1522  IF(WM5>-2)  1536,152%,  152% 

entr-moo 

1261 

152%  REAOIKIM,  166?  MEM, UlMF ,RhOINF ,MIMF ,FIM7 

ENTR-MOO 

?2%2 

MIMF*HIMF/l,9 

entr-moo 

12%3 

IF (MEM)  1527,1527, 1526 

ENTR-MOO 

12%% 

152%  REAO( KIN, 70991  IRCO, (SF(I) ,2*1, MEM) 

ENTR-MOO 

12%5 

IF(XREO.NC.lNl.AMO.IREO.NC.IMF)  60  TO  1530 

ENTR-MOO 

12%6 

00  1567  1*1,  MEN 

ENTR-MOO 

1267 

IFlIREQ.EiMHl)  SF(I)*SF(I)/12. 

ENTR-MOO 

12%0 

oum*rhoimf*uimf*sfii» 

ENTR-MOO 

12%9 

IF  < A9S (<R(6)-2>.EQ.I)G0  TO  15%7 

entr-moo 

1259 

0UM*0(JM  /  2  ,  *SF  ( X ) 

ENTR-MOO 

1251 

15%7  SFUMOUM 

ENTR-MOO 

1252 

GO  TO  1539 

ENTR-NOO 

1253 

1527  NCN*NS 

ENYR-HOC 

125% 

00  152*  1*1, MS 

ENTR-HCO 

1255 

152*  3F(T)*RH0INF*UINF/2.*R0KAR(II#*2 

ENTR-NOO 

125% 

15 JO  RE  AO (KIN, 7009) IREO,  <CS (11 .1*1, MEN) 

ENTR-MOO 

1257 

UNITE (K0UT,3%) (SF(I) ,1*1, MEN) 

ENTR-NOO 

125* 

If (I8E0.Ne.IM3)  GO  TO  15%« 

ENTR-MOO 

1259 

MRITC  (KOUT.37) (CS  ( I ) , 7* 1 , N£N) 

ENTR-MR3 

1763 

00  1551  1*1,  MEN 

ENTR-HQD 

1261 

1551  CS(I)*e$(I)/57. 29577 

entr-mc© 

1262 

I»E0*IM8 

ENTR-NOO 

1263 

GO  VO  lf%9 

ENTR-MOO 

126% 

1569  IFd8ED.NI.lM8)  GO  TO  1559 

ENTR-NOO 

lf%% 

NR ITE ( KOUT, 39  !  < CS(I ) , I  *  1 , MEN) 

ENTR-MOO 

)  76% 

CO  TO  1 5%  5 

ENTR-MOO 

1267 

1559  NRITf  (  KWT.35)  <CS  <I>  ,  I  *1 ,  Nf  N) 

ENTR-NOO 

!?*• 

1569  IF(K«M5l-*»  1529,1575,1979 

ENTR-MOO 

17*9 

1575  READ  (KIN, 7007)  (CC  f I) ,1*1 ,6|N1 

ENTR-NCC 

127® 

CALL  SLORC  (NCN, SF ,CC,C6R, Of 8) 

ENTR-NCO 

1771 

N8ITEIK0UT.36)  (CC(I),I«1,N|M 

ENTR-MC 

1772 

60  TO  1529 

t;x  '»-*cq 

1773 

1535  Rf  AO  ndM,7®07>  (0518(11,1*1,  MSI 

9«7*  ®5 t 

177* 

1579  8CA0  (KIN, 1061  IOSIF 

ENTR-MOO 

1775 

*5JL  If  (IRRE-DEM)  1536,1533,1536 

9874  96 : 

177% 

1533  READ  <*IM,?t®n  (RRf U > , I* 1 ,NS> 

*  17  A  061 
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1277 

i  zn 

1279 

1280 

1291 
1242 

1293 
124% 
1249 
1244 

1242 
1244 
1249 

1240 

1241 

1292 

1243 

1294 
1299 

1244 
1297 
1294 

1299 

1300 

1301 
13C2 
1313 
1304 
130? 
1304 
130  7 
1363 

1309 

1310 

1311 

1312 

1313 

1314 
1319 
1316 
1«17 
1314 
1319 
1324 

1321 

1322 

1323 

1324 

1325 
1324 
1327 
1524 
1329 
1134 

1331 

1332 

1333 
1134 


REAO  (KIN, 104)  IPRE 
1914  IFCPRE 111 J  1541, 1*42,1941 

1542  00  1543  1*2, NS 
IF(PRElIl)  1544,1543,1944 

1544  L-I 

60  TO  1545 

1543  CONTINUE 

1545  RNOSC«S(U/SQRT(«w.PRE(U) 

00  1544  I»2,L 

RTECI  , 1>*PTET (ITEN) 

1531  P£II  , 1)>PTC(I  , 1) *PR€ (I  1 
....  If  ‘I«*3-JWI  1554, 1552,1594 

1552  READ  (XlN,7M7)  (RAORtl),l>l,N$) 

READ  (KIN, 104)  I RAO 

1554  00  1553  I«J,NS 

1553  RAOSf  I)»RAOFL(t TEN)  MAORI II 
145  00  144  ISM, NS 

24!  IE  (IS-lJ  217,207,203 
207  Kail)*; 

KQ(5) »2 
KQ(4>«0 
KQ (4) *0 

IF  OCR (7)) 40 03,4003, 4002 
4002  CALI  STATE 

NRITE(K0UT,S92) 

NRITE(K0UT,994) 

aiusss"  tsr  *«"  -- 

3  (0E6  A)  (ATI//  ,  "WEM  PRESSURE  77*  1 01 M (FEET) 

4f(4*T^^^"**  <BTU/  /3B«*M‘.8<D*6CS)r«,i;!iSSofC'ri;  j,T 
0903  CALL  EQUILUQ.GEdTEN)  ,FTE(1,IT)) 

4004  <Q( 1) »3  * 

<Q(2)»0 
KQ  (  3)  *1 
KQ<5)»I 

IF  (<R  (6)-2>  210,  293,  203 
203  IF  ^R(7))4»06, 4094, 4005 
4445  CALL  STATE 
60  TO  214 

4444  CALL  EQUIl <KQ, 0 . ,PE ( IS , IT) ) 

210  IF  (NSPNl) 70S, 209, 215 
215  00  214  K*l,ttSP*l 
214  SPECK,  1S,IT».SP<i,NETA,K) 

205  IF (KR I  IS) )  9943, 9944,9993 

M"i"!S2t,3!I,w,1>  IS,wflfIS>'uf,is,»”«fis*»j»Tfns),RNoc(is) 

9944  CONTINUE 
144  CONTINUE 

IFtIR€O.M£.lNR)CO  TO  193 
K0«t)>7 
KQ(5)>3 
00  14?I«i,MEN 

CALL  EOUU«KQ,CS(I),PTf  U,  |)> 


P97A  062 


B47A  044 
807 A  06$ 


807*  044 
807*  044 
4074  070 
807*  07| 
B07A  072 
807*  0/3 
807* 


897* 

6074 

BC7* 

807*  076 
8S7*  077 
907*  074 

407* 


817* 


987*  844 
947*  9 PS 
947*  g%6 
ENT  R-»|iOQ 
ENTtoNQQ 
947*  999 
•17*  130 

Cntr-noo 

C9TR-HQC 

ENT*-»*oo 

C*T»-WO 

ENTV-WOO 
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1335 

IE (I.EQ.i)  CS1=CS<1) 

ENTR- 

MOD 

1336 

102 

cs  (i)scsm-csi 

ENTR- 

MOD 

1337 

1 J  3 

IF (NEN.GT . 0) CALL  SL0P3  CNEN ,5F ,CS  ,CSPR»  DER) 

ENTR- 

MOD 

1338 

C 

END  OF  EDGE  PROPERTY  LOOP,  START  OF  BETA  ANO  XI  CALCULATION 

ENTR- 

MOD 

1339 

605 

XI <1)=0. 

B07A 

105 

1340 

J=NOISC+l 

B07A 

106 

1341 

DO  111  11=1, J 

307A 

107 

1342 

K=NSDIII> 

B07A 

108 

1343 

M=MSO< I I) 

B07A 

109 

1344 

MM*M+  1 

1345 

LL=K+M-1 

B  07  A 

110 

1346 

IF  (II-l)  6052,6052,  402 

B07A 

111 

1347 

6052 

IF  (KR<6)-1)  400,401,402 

B07A 

112 

1348 

C 

AXISYMETRIC  BLUNT 

B07A 

113 

1149 

400 

DO  403  I=N,LL 

B07A 

114 

1350 

SDUM2(I)=S(I»*Sm 

B07A 

115 

1351 

IF"  (SCI) )  403,403,4031 

B07A 

116 

1352 

4031 

3UM1=R0KAP(I)/Sm 

B07A 

117 

1353 

XIC0N(I)=UECI)/SCI)*RH0E<I)/4.*VMUECI)*DUM1*DUM1 

307A 

118 

1354 

403 

SDUM1 ( I)=SnUM2 (I)*SDUM2(I) 

B07A 

119 

1355 

QI=4. 

B07A 

120 

1356 

BETAM(1)=0.5 

B07A 

121 

1357 

GO  TO  406 

B07A 

122 

135" 

C 

PLANAR  8LUNT 

B07A 

123 

1359 

401 

DO  404  I=M,LL 

B07A 

124 

1360 

SDUM2  T I >  =S  (I) 

B07A 

125 

1361 

IF  <S« I»  >  404,404,4041 

B07A 

126 

1362 

4041 

XIC0N(I)*UE(I)  /S(I)*RHOElI)/2.*VMUEtI) 

B07A 

127 

1363 

404 

SDUN1(I)»SCI)*S<I) 

B07A 

128 

1364 

QI=2. 

B07A 

129 

1365 

Bfc'TANtl»*i. 

B07A 

130 

1366 

GO  TO  406 

B07A 

131 

1367 

402 

IF  OCR  (6)  -2)  408,407,408 

B07  A 

132 

1368 

V 

AXISYMETRIC  SHARP 

B07A 

133 

1369 

407 

DO  409  I=M,LL 

B07A 

134 

1370 

SOUM2(T)=S(I)*SlI> 

B07A 

135 

1371 

DUIll=ROKAPCI)7S(I) 

807  A 

136 

1372 

X  ICON ( I) =RHCE ( I ) *UE  (I) *VMUE <I)*0UM173.*0UM1 

B07A 

137 

1373 

409 

SOUM1  ( I  )  =  S  (I)  '‘SOUM2  CIJ 

B  07  A 

138 

1374 

XI  (1)  =XICONtl)*S(l)*S<l)*S?i> 

B07  A 

139 

1375 

CI  =  3. 

B07A 

140 

1376 

IF  (II-l)  4051,4051,406 

1377 

r, 

PLANAR  SHARP 

B07A 

142 

1376 

408 

DO  405  I=M,LL 

807  A 

143 

1379 

SDIJM2 ( I) =5 ( I) 

B07A 

144 

1360 

XICON ( I )  =  RHOE  C I >  *UE  (I) *VMUE (I) *ROKAP (I> *ROK AP (I > 

B07A 

145 

1361 

405 

SDUM1(I)=SCI> 

B07A 

146 

1382 

QI-1. 

B07A 

147 

1383 

IF  (II-l)  4052,4052,406 

1384 

4052 

XI  (1)  =XIC0N<1)*S(1> 

B07A 

149 

1365 

4051 

MM=M 

1386 

406 

CONTINUE 

B07  A 

152 

1387 

CALL  SLOPQ(K,S(M),UE<M) »DU0S CM) , OER (M > > 

B07A 

15' 

1388 

IF  (KR<6>-2>  4066,4062,4062 

BOY  A 

154 

1389 

4066 

IF  CM- 1 )  4061,4061,4062 

B07A 

155 

1390 

4061 

IF  (RNOSE)  4063,4063,4064 

B07A 

156 

1391 

COMMENT. ..DUES  COMPUTED  BY  SLOPQ 

e07A 

157 

1392 

4063 

OUES=OUDS ( 1) 

B07A 

158 

96 


AFWL-TR-69-114,  Vol  I  (Supp.) 


! 


1393 

GO  TO  4065 

B07A 

159 

1394 

COMMENT,.. DUES  FROM  EFFECTIVE  NOSE  RAOIUS  USING  NEWTONIAN  FLOW 

B07A 

16  0 

1395 

4064 

DUES=SQRT(2./RHO£(i)*PE!l, IT) *32. 1740*2116. )/RN0SE 

e07A 

161 

1396 

4065 

XI CON (  11 sRHOE !  1)*VNUE<  1> /!2.*VK4P*2.) *DUE5 

E07A 

162 

1397 

4062 

CALL  SLOPQCK,SOUMl(M),XlCONCH) ,OER!M> ,XI(M)) 

B07A 

163 

1391 

IF  CLL-MH)  111,4101,4101 

B07A 

165 

1399 

4101 

DO  410  L*MM,LL 

E07A 

166 

1400 

410 

BETAH(L)=2./QI*XI(L>/UEIL>*S!L)/S0UNl(L>*DUDS!L>/XIC0Na> 

B07A 

167 

1401 

111 

CONTINUE 

B07A 

168 

1402 

9803 

FORMAT (8E10.4) 

BO?  A 

172 

1403 

WRITE  <  K OUT, 15) 

1404 

WRITE (KOUT, 16)  (  S(I),I=1,NS) 

1405 

WRITE (KOUT, 28)  (ROKAP(I) ,1=1, NS' 

1406 

WRITE (KOUT, 26) (  XI II)  ,1  =  1  ,NS> 

1407 

WRITE CKOUT, 17) (  PRE (I) ,1=1, NS) 

1406 

WRITE! KOUT, 25)  (  PE  Cl, 1> ,1=1, NS) 

1409 

WRIT£(K0UT,29> (  UE (1 1 ,1= 1 ,NS) 

1410 

WRITE (KOUT, 27) (BETAN(I) , 1= 1 ,NS) 

1411 

WRITE < KOUT, 32) (  RAOS (I 1 , 1= 1 ,NS) 

1412 

WRITE ( KOUT, 16) (  OSIP (I 1 , 1= 1 ,NS) 

1413 

C 

CALCULATION  OF  C3  MATRIX 

B07A 

173 

1414 

DO  138  1=1, NS 

B07A 

174 

1415 

IF  <KR(6)-1)  137,137,158 

B07A 

175 

1416 

137 

IF  (1-1)  139,139,158 

B07A 

176 

1417 

139 

C3M(I)=-SQRT  IBEIAMCI) /IOUES*RHOEI  I)*VMUEC  I))) 

B07A 

177 

1418 

GO  TO  138 

B07A 

178 

1419 

158 

C3M(I) =-SQRT (2.* XI  (  I))/(RHOE!  I)*ROKAP!  I)*UE»  I)*VMUE<  I)) 

B07A 

179 

1420 

138 

CONTINUE 

B07A 

180 

1421 

WRITE  (KOUT, 33)  (C3M  II)  ,  1=1,  NS) 

1422 

C 

READ  WALL  CONDITIONS  IF  UNCCUPLEO 

B07A 

189 

1423 

JRHOVW*0 

1424 

IF  CITEM-1)  108,108,7004 

1425 

108 

IHW=1 

PC7A 

191 

1426 

ITW=1 

B07  A 

192 

1427 

IFW=1 

B07A 

193 

1428 

IRHOVW=l 

B07A 

194 

1429 

ISPW=  1 

B07A 

195 

1430 

IFLUXJ=1 

B07  A 

196 

1431 

DO  49  1=1, NS 

1432 

00  49  L=l,3 

1433 

49 

FLUXJ  !L ,1, 1)  =  0. 

1434 

107 

IF  (KR(9>-3>  7054,7005,1071 

1435 

1071 

IF (KR!9) -5)  7047,7005,7047 

1436 

7054 

IF'KR(ll>-2)  7062,7040,7047 

B07A 

198 

1437 

7062 

IF(KRCll))  7004,7005,7004 

B07A 

109 

1438 

7004 

IF  (IHW-ITEM)  1091,109,1091 

B07A 

200 

1439 

1091 

IF!  IHW-l)  1201,7005,1201 

1440 

109 

REAO!KIN,7007) ( (HW (J, JJ) , JJ=1,NTIME> , J=1,NS> 

e07A 

201 

1441 

READ  (KIN, 106)  IHW 

B07A 

202 

144? 

1201 

WRITE  ! KOUT, 19) (HW(I,1) ,1=1, NS) 

1443 

IF  (ITEM-1)  7038,7038,7060 

1444 

7006 

IF  (ITW-ITEM)1092, 110, 1092 

B07A 

205 

1445 

1092 

IF!  ITW-1)  1202,7060,1202 

1446 

110 

REAO(KIN,7007)  ( t  TW  ( J,  J J) ,  JJ*i »NTIME>  ,J=*i,NS> 

PI)  7  A 

206 

1447 

READ  (KIN, 106)  ITW 

B07A 

207 

1448 

1202 

WRITE  (KOUT, 20) (TW!I,1) ,1=1, NS) 

1449 

IF  (ITEM-1)  117,117,7060 

1450 

117 

IF  !KR  (9) -3)  7038,  7047,7047 

B07A 

209 
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1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 

1497 

1498 

1499 

1500 

1501 

1502 

1503 

1504 
15  05 

1506 

1507 

1508 


IF <KR(9)-1)  7060,7061,7040 

IF  (IFW-ITEM)  1093, 112,1093 

IF  (  IFW-1)  1203,7061,1203 

REAO C KIN, 7007)  C (FH C J, JJI , J J*1,NTIHE> ,J*i,NS> 

RE  AO  (KIN, 106)  IFW 

WRITE  <KOUT,2lMFW(I,i>,I=l,NS) 

GO  TO  7006 

IF  CIRHOVW-ITEM)  1094,118,1094 
IF (IRHOVW-1)  1204,7006,1204  . 

READ (KIN, 7007) ( ( RHOVM ( J, JJ> ,JJ=1,NTIHE> ,J*1,NS) 

REAO  KIN, 106)  IRHOVW 
JRH0VW= 1 

IF  (KR(8) -JRHOVW)  1102,1101,1101 
WRITE  (KOUT,22> (RHOVM Cl, 1) , 1*1, NS) 

GO  TO  7006 

WRITE  (KOUT,30) (RHOVW(I,l) ,I=1,NS> 

IF(NSPMl)  7043,7043,7015 
IF  (ISPW-ITEM)  1095,114,1095 
IF  (  ISPW-1)  1205,7040,1205 
DO  7014  K=1,NSPM1 

READ (KIN, 7007) ( (SPW (K, J, JJ) ,JJ=1,NTIME) ,  J=1»NS> 

REAO  (KIN, 106)  ISPW 
OO  1097  K=1,NSPM1 

WRITE  (KOUT,23)(  SPW(K,I,1) ,I=1,NSI 
GO  TO  7043 

IF  (IFLUXJ-ITEM) 1096,115,1096 
IF  (IFLUXJ-1)  1206,7043,1206 
DO  7041  K=l,3 

READ(KIN,7007)  (  (FLUXJ  (K, J , JJ) , ,NTIME> , J* 1, NS) 

READ  (KIN, 106)  IFLUXJ 

JRHOVW=l 

DO  1098  K=l,3 

IF (KR(8)-JRH0VW)  1104,1103,1103 
WRITE  (KOUT,24) ( FLUXJ (K, I , 1 ) ,1=1, NS) 

DO  7039  J=1,NS 

FLUXJ(K,J,1>=FLUXJ(K,J,1)  *  C3H(J) 

GO  TO  1098 

WRITE  (KOUT,31) (FLUXJ (K, I, 1) ,1=1, NS) 

CONTINUE 
GO  TO  7047 

IF (JRHOVW)  7047,7047,7045 

CALCULATE  FW  IF  RHOVW  GIVEN 

J=NDISC+1 

DO  7046  11=1, J 

K=NSD (II) 

W=MSD(II) 

LL=K+H-1 
DO  209  I=M,LL 

IF (I.EQ.H.AND. II.NE.l)  GO  TC  209 
IF  (KR  (8) )  7049,7049,2291 
RHOVW(I,IT)=RHCVW(I, IT)*C3H(I> 

IF  <II-1)  7048,7048,  230 
IF  ( KR (6) )  229,229,230 

VALID  AT  AXISYMETRIC  STAGNATION  POINT  ONLY 
FKCGN ( I )=-RHOVW (I, IT) / (2. *C3M  (I) > 

IF  (  I-l)  209,209,232 

NODIFICATICN  FOR  AXISYMETRIC  9LUNT  AWAY  FRON  STAGNATION  POINT 
F WCON (  I ) =FWCON (  I)/S(  I)*RCKAP<  I) 


6Q7A  210 
307A  211 

807A  212 
B07A  213 

0O7A  215 
B07A  216 

0O7A  217 
B07A  218 


B07A  220 
B07A  221 
B07A  222 
B07A  223 
B07A  224 

B07A  225 
807 A  226 
B07A  227 

B07 A  229 
807 A  230 
B07  A  231 

B07A  232 
B07A  233 
B07A  234 


807 A  237 


C07A  238 
807  A  239 
B07A  240 


B07A  253 
B  07  A  254 
B07A  255 
B07A  256 
B07A  257 
B 07 A  258 
B07 A  259 
ENTR-MOO 
B07 A  260 
B07A  261 
B07A  262 
B07A  263 
B07A  264 
8 07 A  265 
B07A  266 
807 A  267 
B 07 A  268 
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1509 

GO  TO  209 

B07A 

269 

1510 

C 

VALID  FOR  ALL  PLANAR 

B07A 

270 

1511 

230  FWCON (I) s-RHOVW (I,IT)/C3H(I)*ROKAP(I) 

ENTR-MOD 

1512 

IF (KR(6) -2)  209,236,209 

B07A 

272 

1513 

C 

MODIFICATION  FOR  AXISYHETRIC  SHARP 

B07A 

273 

1514 

236  FWCON (  I)=FWCON(  I)/S(  I)*RCKAP(  1)72. 

B07A 

274 

1515 

209  FLUXJ(2,I»1)SRH0VW (If  1) 

1516 

FWDUM(l)=FWCON(i)*S(l) 

B07A 

276 

1517 

IF(KR(6)-2)  241,237,241 

B07A 

277 

1516 

c 

MODIFICATION  FOR  AXISYHETRIC  SHARP 

B07A 

278 

1519 

237  FWQUM { 1) =FHDUM (1)#S(1) 

007A 

279 

1520 

241  CONTINUE 

B07A 

280 

1521 

7046  CALL  SLOPQ CK, S0UM2 (M) , FWCON CM) ,OER( M)  , FWOUM (M) ) 

B07  A 

281 

1522 

DO  126  I  =1,NS 

B07A 

282 

1523 

IF (I  -1)  124,124,123 

B07A 

283 

1524 

124  IF  <KRC6>-1>  133,133,123 

B  07  A 

284 

1525 

133  IF  (SCI))  113,113,123 

B07A 

285 

1526 

113  FW(1,  IT)®RHOVW( 1 , 1 T 1 

BC7  A 

286 

1527 

GO  TO  126 

B07A 

287 

1528 

123  FW (I  , IT) *FWOUM (I  )/SQRT  (2.*XI(I  )> 

B07A 

288 

1529 

126  CONTINUE 

B07A 

289 

1530 

7047  RETURN 

B07A 

290 

1531 

END 

B07A 

291 

1532 

CB08A 

BOS  A 

001 

1533 

SUBROUTINE  ICOEFF 

B  08  A 

002 

l53*t 

COMMON7COECOM/  C5,C6,C7,C8,C9,C10,C11,C12,C13,C14,C15B08B 

3 

1535 

l,Cl6,C17,Clb,C19,C20,C21,C22,C23,C24, C25,C2E,C27 ,C28,C29,C30,C3l, 

CB06B 

4 

1536 

232,C33,C34,C35,C36,C37,C38,C39,C40,C41,C42,C43,C44,C45,C46,C47,C48B08B 

5 

1537 

3,C49,C50,C5l,C52,C53,C54,C55,C56,C57,C58,C59,C60,C61,C62,C63,C64,CB08B 

6 

1538 

465 ,C66,C67,C68, C69, C7  0,C7l,C72,C73,C74,C75,C76,C77,C78,C79,C60,C81B08B 

~9 

1539 

5,C82,C83,C84,C85,C86,C87,C82 

B08B 

8 

1540 

COMMON/COECON/  CK1 (  8),CK2<  8),CK3(  8),CK4(  6),CK5(  6),CK6(  8) 

B08B 

9 

1541 

1 ,CK7<  8) ,  CK8(  6),CK9(  8),CK10<  8),CKlK  8),C<12(  8),C<13(  8) 

303B 

10 

1542 

2,CK14(  8) ,CK15 (  8>,CK16(  8>,CK17C  8),CK18<  8),CK19(  8),CK20(  8) 

B0  8B 

11 

1543 

3 ,CK21 (  8) , CK22 (  8),CKK1(  8,  8>,C*K2f  8,  8) , XM (5) , XG (5) , XSP (5,  9) 

B08B 

12 

1544 

4,CKK3<  8,  8) 

B08B 

13 

1545 

COMMON/E DGCOM/  PE  (4  0,  1),PTE(40,  1),SPE(  8,40,  1),DUES 

,  B08B 

14 

1546 

1UE (40) ,RH0E(40) , VMUE(40),TE(40) , UEDGE , DUEOGE , D2UE0G,  VMWE,  CGE, C90 

entr-moo 

1547 

2, OS IP (40) , IDSIP, TTVC,TVCC(40) ,HEA(40) , SF<2 0) , CS (20) , CSPR< 20) , 

ENTR-MOD 

1548 

3CG  (20 ) , CGP (20)  , SREF , GEP.NEN 

ENTR-MOD 

1549 

COMMON /ET ACOM/ ET A (l5),D ETA (15),DSQ(14) ,DCU(14) , B1 (14 ) , B2( 14) 

0083 

17 

1550 

1 ,LAR(153) ,9A1(43,18) ,8A2(30,15) 

B08B 

18 

1551 

COMMON7HISCOM/C1 ,C2,C3,C4,ALPH0,BETA,ZM(4,14) ,ZG(4,14)  ,ZSP(4,14, 

8e08B 

19 

1552 

1  ) ,XI(40) ,HF(15,5) ,HG(15,3) ,HSP(15,3,  8) ,HAlPH,HUE,HHUE,HFW,0LX2 

B08B 

20 

1553 

2,C3M(40),3ETAM(40> 

BOOB 

21 

1554 

COMMON/INTCOM/  KR( 20) , KIN, KCUT,HAT1I, MAT2I ,MA T1 J,M AT2J.NET A, I , IS, 

NP083 

22 

1555 

IS, IT, NTIHEfNSP, NSPM1,NAM,NLEQ,NNLEQ,NRNL,  ITS, KAPPA, CBAR,CASE( 15) 

B08B 

23 

1556 

2 , B  (8) ,  MWE , NON , KQ ( 10) , ITCM.NITEM, KR17,NBT,NBT2, IOENT ,  KR9  (4  0) 

B08B 

24 

1557 

3 , <AUXO, JTIME, JSPEC,MO( 3) 

B08B 

25 

1558 

C0MM0N7PRPC0M/PR (15) ,T<15) ,RHO(15) , SC ( 15) , C APC (15 ) , QR(lS) ,H(15) 

B08B 

26 

1559 

1 , CPBAR (15) , VMW (15) , PHI K<15  »  8) ,DRHOH, ORHOK  (  8),2X(  8),0ZKH(  9), 

D308B 

27 

1560 

2MU3K(  8) , DMU4K (  8),DTK(  8),CPHIXH(  8),0PRX(  8),DSCK(  8>,0CAPCK(  8) B08B 

28 

1561 

3  ,  OHTIL  <  C  8) ,  OQR<  (  8),DCPB<,’  8),DCPTK(  8>,DHU12*(  8>,DZKKC  8,  6) 

B083 

29 

1562 

4 ,OPHIKK (  8,  8),  0MU4H , 0MU3H,DHTILH, VMU12,CT,CTR,CPTIL ,HTIL 

P08B 

30 

1563 

5, VMU3,OTH,OCAPCH,DPRH,OSCH,OQRH,DCPBH,OCPTH,OHU12H,VMU (15 ) ,  RHOP 

eo8B 

31 

1564 

6(15) ,FHIKP(15)  ,HP,TP,ZKP(  8 ) , VMU3P, VNU4P, HTILP, CRHO ( 14) , GMR ( 15 ) 

B08B 

32 

1565 

COMMON /VARCOM/F (4,15) ,G(3, 15),SP(3,15,  9) , AlPH 

B08B 

33 

1566 

C 

FIRST,  EVAL  DERIVATIVES  OF  STATE  PROPERTIES  WITH  RESPECT  TO  ETA 

808  A 

026 

99 
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156/ 

VHU4P»0HU4H*HP 

808  A 

029 

1568 

VMU3P*0HU3H*HP 

808A 

030 

1569 

HTlLP*OHTILH*HP 

808  A 

031 

1570 

TP*0TM*HP 

808A 

032 

1571 

RHOPf  H*ORHOH*HP 

808  A 

033 

1572 

IF(NSPH1)401* 401,402 

808  A 

034 

1573 

402  00  408  X=1,NSPH1 

808  A 

035 

1574 

ZKP (K9 *02KM<K)  *HP 

eosA 

036 

15  75 

PHIKP (K)*0PHI<H  OO  *HP 

608  A 

037 

1576 

VMU4P* VMU4P*0MU4 KC K) *SP 12 , I , K» 

B08A 

038 

1577 

VHU3P*VHU3P*0NU3K<K) *SP<2» I»KI 

808  A 

039 

1578 

HTILP*  HTILP+OHTILK (K)*SP(2»I»K) 

808  A 

040 

1579 

TP«TP*  OTK(K) *SP  C  2» I  *  XI 

808  A 

041 

1580 

RHOP (I >  *RHOPl I) ♦ORHOK (K) *SP  (2» I *K) 

B08A 

042 

1561 

00  408  J= IfNSPMl 

806  A 

043 

1562 

ZKP1K) *2KP(K) ♦DZKK(K»J)*SP<2»I*J) 

806A 

044 

1583 

4  08  PM I KPT X) *PHIK?< X) ♦  OPHIKKIX  » Jl *SP( 2» I »  J) 

6  08  A 

045 

1584 

C 

NEXT.  EVALUATE  OTHER  GROUPINGS  FOR  USE  AT  I  AND  1-1 

808  A 

046 

1585 

c 

CFS  OEFINEO  IN  HISTXI  -  Cl*l.*0Z,C2*-Ci-0Z,C3*-i./»lPHA*>C4*8ETA*CiENTR-MOO 

1586 

c 

CFS  OEFINEO  IN  NONCER  -  C5«1./ALPH»C6*BETA*ALPH**2, 

1ENTR* 

•MOD 

1587 

c 

C7s- ( UE (IS) /AlPH) **2*25036. 5, C8»ALPHD/ALPh,C9*C4-C8, 

ENTR- 

•MOD 

1588 

c 

C10*C7*F (2,1) fC13*C7*F(3,I> 

ENTR- 

■MOO 

1589 

401  C11*C5  *  F(3,I)  *  TTVC 

1590 

C12  *  C5  *  CAPCdl  *  TTVC 

1591 

Cl4=Cl*F(l,I)*HFd,5J 

808A 

049 

1592 

C15=PR(I)-1, 

BOS  A 

050 

1593 

C16«1./PR(I> 

eosA 

051 

1594 

C17=1./SC(I) 

B  08  A 

052 

1595 

Cie»CTR*T(I) 

BQ8A 

053 

1596 

C19=C17*C12 

B  06  A 

054 

1597 

CZ0*C16*C12 

B08A 

055 

1598 

C21  =  C13  *  C15 

1599 

C22  =  C21*C20 

1600 

C23  =  DCAFCH/CAPCdl 

1601 

C24  *  C20  *  (G(2,I)-C21*F(2,in 

1602 

C25=  C20  *  C16  *  (GC2,I)*013*F<2,in 

1603 

C26  =  RHCE  CIS)  /RHO { II 

1604 

C28  =  C 12  •  F ( 3 1 1) 

1605 

C31  =  HTILP-«CPTIL*CT/VMU12*CTR)*TP*C18  *  V/U3P*(HTIl-H(I) +ctr* 

1606 

1  VMU3*  T ( I) )  * VMU4P 

1607 

C32  *  ( -F (2» I)  *C13*TP/PRf I ) *CPEAR(I)*C31/SC (I) )  *  C12  -  C3*QR<I> 

1608 

l  *TTVC 

1609 

C43»C24*C23-C25*0PRH-C3*0QRH*TTVC 

1610 

C53=RH0P(I)/RH0d) 

1611 

C56  *  F(2,I)/ALPH 

1612 

C73  =  Cl  *  F(2,I) 

1613 

C74  *  C1J.  *  CIO  *  OCAPCH  *  C14 

16  14 

C75*C11*DCAPCH 

e08A 

100 

1615 

C76*Ci*Gtl,I> 

80  8  A 

101 

1616 

C77=-C22*C43*C10 

1617 

C78*-C20*C15*C10 

1618 

C79«C43 

1619 

C80*C20 

1620 

C81=-C28*(C10*C56*C23*C5) 

1621 

C82*“C20,'C5*G(2#I>  *3. 0 *C22 • C56-C43*C1 0 *C56 

1622 

C63‘C28*C14  *  F(2,I» 

1623 

412  C84«C32*G(1,I> *C14 

80  8  A 

109 

IS  24 

C85  *  -C6/RHOU)  *C?6/2. 

100 
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1625 

1626 
1627 
1626 

1629 

1630 

1631 

1632 

1633 
1636 

1635 

1636 

1637 
1633 
1639 
1660 
1661 
1662 
1663 
1666 

1665 

1666 

1667 

1668 
1669 

1650 

1651 

1652 

1653 
1656 

1655 

1656 

1657 

1658 

1659 

1660 
1661 
1662 
1663 
1666 

1665 

1666 

1667 

1668 

1669 

1670 

1671 

1672 

1673 
1676 

1675 

1676 

1677 

1678 

1679 

1680 
1681 
1682 


C86>C85*C10*DRHOH 

C87«BETA*ALPH*C26-C86»C56 

C88»C85*ORHOH 

0UM1»C23-QSCH/SC(I) 

IF (NSPNl) 403,403,404 
404  00  406  K«!,NSPM1 

CK3 (Kl  «  OCAPCK(K) /CAPC(I) 

406  CK4(K>«CK3(K)-0SCK(K)/SC(I) 

00  410  K*1,NSPM1 
0UH2*C19  •  SP(2,X,K) 

CKl(KI=C24*CX3(K)-C25*OPRK<K)-C3*OQRKm*TTVC 

CK2(K)*0. 

CK5 (K) *0» 

0UM3*  ZK (X) -SP ( 1 , 1,  K) 

CK6  00  *C  19* (ZKP  ( X)  +VHU4P*DUH3) 

CK9CK) «  OUH2*OUH1 
CK13<K)*C85*0RH0X<  X) 

CK14(K>«0. 

CK15(  )M0. 

CK16(  M»0. 

CK17C  ))*Cll*OCAPCK(X> 

CK18(K)«C1*SP(1,I, X) 

CK19(K)*CK9(K)*C1Q 

CK20(K)«0. 

CK21(  M*-CK19tK)*C56-0UH?/ALPH 
CK22(K)*CK6(K)+SP(1,I,K)*C14 
DO  410  KK^ljNSPHl 

CKKl (X, KK)*C19* (OZKK (K ,KK) ♦0UM3*DMU4K  < KK >  > 
CKK3<K»KK) =OPHI XX( X,  XX) 
CKK2(K,KK)=DUN2*CX4(XK) 

CONTINUE 
RETURN 
END 


B08A  110 


414 


410 

403 


CBQ9A 


SUBROUTINE  RECASE 
COMMON/CRBCOH/HCARB,EMIS,STEF, ADUM, BDUH,CDUN,HTEF,HHAT,EMISC,EMIST 
1 » HPG ,ASU(3),8SU(3) ,HPYG<3) ,HCHAR(3) , ENIV 13 ) , KS (4  0) , ISU 
COMMON /ETACOH/ ETA (15) , QETA ( 15) , DSQ (14) ,0CU(14) ,01(14) ,B2l 14) 

It LAR(153) t BA1 ( 43 f 1 8)  ,BA2(3  0,15) 

COMMON/ INTCOM/  XR t 20) » KIN, KCUT,HATlI , M AT2I , Y ATI J,MAT2J, NE T A , I , IS ,N 
ISf ITfNTIMEfNSPf NSPMlfNAMfNlEQf NNLEQf NRNLf  ITS , KAPPA, CBAR, CASE C 15) 

2, B(8) ,  MMEfNONfXQ(lO) , I TEM,NITEM , XR17 ,N BT ,NBT2, IDENT , KP9 (40 ) 

3, KAUXO,JTIME,JSPEC,MO(3) 

COMMON/PRNCOM/ TIME (  50) ,PRE<40) ,PTET(  50),CE(  50)  ,S(40> ,ROKAP  (40 ) 
l,RNOSE, VKAP, NO  ISC, 10  ISC (40) ,NSD(10) ,MSD<10) ,ITF<  50) ,IPRE,RAONO, 
2CONE»RAOFL  (  50  ,RAOR  (4  0) ,  R  AOS  (4  0) ,  I  PAD 

1  FORMAT <2011, 15A4) 

2  FORMAT (12) 

3  FORMAT (I2/(8E10»4> ) 

4  FORMAT  (1MH4X56HB0UN0ARY  LAYER  INTEGRAL 

1  //8X47MAER0THERM  CORPORATION, PAL C 

1.2X3A6  //IX, 

2CASE  , 15A4,//, 8X,75MCONTROL  NUMBERS  1 
311  12  13  14  15  16  17  18  i9  20,//,23X,20l3//8X 14H PUNCH 
412HI0ENT  JSPEC/10XA2, 7X12/) 

5  FORMAT  <8E  10.4) 

6  FORMAT (I2,ElO«4) 

7  FORMAT  (/9X20MVISCOSITY  LAW  MU«  (El  C.  3  ,4H» T**E  10. 3 , 3M)  /  {£  J.  0. 3 , 3M*T 


MATRIX  PROGRAM  (BLIMP) 
ALTO, CALIF  <RMK,EPB) 


2  3  4  5  6 


7  8  9 

CONTROL 


5H 
10 
/  8X 


BOSA 

125 

B09A 

126 

BOSA 

130 

BOSA 

131 

BOSA 

135 

BOSA 

136 

BOSA 

137 

BU9A 

001 

B09A 

002 

e09A 

3 

B09A 

4 

B09A 

5 

B09  A 

6 

!  BO  9  A 

-* 

B09A 

8 

B09A 

9 

B09A 

10 

B09A 

11 

B09A 

12 

B09A 

13 

B09A 

016 

B09A 

017 

B09  A 

018 

B  09  A 

019 

B09A 

I 

020 

B09A 

022 

809  A 

02f 

039A 

0  27 

8  "9A 

328 

101 
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1683 

1684 

1685 

1686 
168/ 
1688 

1689 

1690 

1691 

1692 

1693 

1694 

1695 

1696 
169/ 

1698 

1699 

1700 

1701 

1702 

1703 

1704 

1705 

1706 
170/ 

1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

1716 

1717 

1718 

1719 

1720 
1/21 
1 722 
1/23 

1724 

1725 

1726 

1727 

1728 

1729 

1730 

1731 

1732 

1733 

1734 
1/35 

1736 

1737 

1738 

1739 

1740 


C 

C 

C 

C 

C 

C 

C 


C 


1>£10.3,1H)//9X19HENTHALPY  LAM  T*E1Q. 3, lH+Ei0.3»4H*H**E10.3, 1H* B09A  029 
2/42X2H((E10.3,7HM.)*H/E10.3,8H)*Mi./(E10.3,  5H*i.) )//9X19HPRANOTB09A  030 
3L  NUMBER  PR*E 10. 3 , 1H+E10. 3 ,4H*T**E10. 3* 1H*E10.3,4H»T**E1 0. 3/>  BC9A  031 
9  FORMAT (2111)  B09A  032 

10  FORMAT  (/, 10X70HU/UE  TO  NODAL  PT.  GAMMA  MOLECULAR  B09A  033 

1  /9X1 8HNORM.  ETA  AT  MHICH13X40HMEXGHT  BQ9A  034 

2  /19X9KETA  NORM.)  B09A  035 

8  FORMAT (3X1PE10 .3»9XI2,6X9E10.3/(30X9E 10.31) 

11  FORMAT  (/,5X7QHU/UE  TO  NOOAL  PT.  B09A  037 

1  ETA  VALUES  /4X23MN0RM.  ETA  AT  WHICH  B09A  038 

2  /19X9HETA  NORM.)  B09A  039 

12  FORMAT  </2X,15HNOSE  RADIUS, FT  ,1PE12.5,5X,16HC0NE  HALF  ANGLE  ,1PE1B09A  040 


,1P8E12.5/(24X,  1P8E12.5)) 
,1P8E12.5/(24X,1P«E12.5>> 
,lP6£12«5/(24X,iP6E12.5)) 
,1P8E12.5/(24X,  1P8E12.5)) 


609A  041 
B09A  042 
B09A  043 


12. 5,8H  DEGREES) 

13  FORMAT  (/,1X,23HTIM£,SEC 

14  FORMAT  </,tX,23HTOTAL  ENTHALPY ,BTU/L8 
18  FORMAT  (/,1X, 23HCASE 

15  FORMAT  (/, 1X,23HT0TAL  PRESSURE, ATM  ,1P8E12.5/(24X,  1P8E12.5))  B09A  044 

16  FORMAT (A2,I£,I6) 

17  FORMAT  </» IX,  2 3H INCIDENT  RAO  FLUX,B/SF2,1P8E12.5/124X, 1P8E12.5)) 

20  FORMAT (7 , 1X,56HSURFACE  RECESSION  -  MALL  TEMPERATURE  RELATION  FOR  T 

1EFL0N//5X,43HSURFAC£  RECESSION  RATE,  LB/SEC  FT2  *  EXP(((,1P  E12.5, 
26H)*TWM,1P  E12.5,7H))*TMv(,iP  212. 5, 2H) ) , //5 X, 37HMHERE  TM  IS  MALL 
3  TEMPERATURE  IN  OEG  R) 

NOTE. . • KR(5)=4  FOR  EOUIL, 3  FOR  EQUIL  MITH  ENTROPY  LAYER,  1  909A  046 

FOR  NONEOUIL,  AND  2  FOR  NONEOUIL  MITH  ENTROPY  LAYER. .. ROKAP=l  FOR  809A  047 
PLANAR.. (KRt6)*l  AND  3  FOR  BLUNT  AND  SHARP,  RESP)  AND  IS  EQUAL  TO  B09A  048 
DISTANCE  FROM  AXIS  OF  SYMMETRY  TO  BODY  SURFACE  FOR  AXISYM..  B09A  049 

(<R(6)»0  AND  2  FOR  BLUNT  ANO  SHARP,  RESPECTIVELY)...  KR(7>*0  FOR  B09A  050 
MULTICOMPONENT  B.L.  ANO»l  FCR  HOMOGENEOUS  B.L..IDISC*0  FOR  NO  E09A  051 
DISCONTINUITY  ANO  UNITY  FOR  DISC.  IN  RGKAP,FM,  OR  RHOMVM  B09A  052 

DATA  ND(2)/6H  / 

CALL  DATE  (9, MO) 

CALL  TOD  (  18,  MO) 

RE AO (KIN, 1) KR, CASE  BQ9A  053 

READ (KIN, 16)  IOENT, JSPEC.JTIME 
WRITE ( KOUT ,4)  MO, CASE, KR, IOENT , JSPEC 
KQ (9) 3  0 

IF  (KR  C6)-8)  245,240,245 
240  KQ  (9) *~1 
KP,  (6)  *4 


GO  TO  255 

245  IF  (KR(6)-4)  255,255,250 
250  KQ(9)=1 

KR (6) *<R (6)-5 
255  REA0(KIN,24)  NSP,KS 
24  FORMA  1(12,8X7011) 


NSPHl*NSP-l  B09 A  057 

RE  AO (KIN, 24) NTIHEfIDISC  ENTR-MOO 

RE  AD  (KIN, 5)  (TIME  (IT)  ,IT»1,NTINE)  ENTR-MOl) 

NITEM*NTIME  B09 A  059 

NT  I ME *1  B09A  060 

RE AO( KIN, 24)  NS.KR9 
READ (KIN, 5) ( S ( IS) , IS»1  ,NS) 

KAUXO*l  POG 

IF (KR  ( 14) -2)  303,303,302  ROG 

302  KAUXO*KR  (14)-1  ROG 

KR  (14) *KR  (14 ) - 3  ROG 

COMPUTE  INFORMATION  NEEOEO  TO  CONSIDER  DISCONTINUITIES  BQ9A  062 


102 
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1741 

303 

J-l 

B09A 

063 

1742 

102 

MSOlllsi 

609A 

064 

1743 

I0ISC(1)=HAX0(IDISC(1)  *1) 

entr- 

NOD 

1744 

S(1)=A6S(S<1)) 

B09  A 

066 

1745 

IF  (NS-1)  105,105,1021 

B  C9A 

067 

1746 

CM 

v* 

00  101  IS*2»NS 

B09A 

068 

1747 

IF(SCIS) )  103,101,101 

B09A 

070 

1746 

*03 

NSO(J)  *IS-HS0(J>M 

B09A 

071 

1749 

S(IS  *-S(IS) 

B09A 

072 

1750 

IOISC(IS)*MAXO (IDISC(IS),1) 

ENTR- 

POD 

1751 

JsJ+l 

B09A 

074 

1752 

MSD (J) 3  is 

B09A 

075 

1753 

101 

CONTINUE 

B09A 

076 

1754 

105 

NSD (J) *NS*HSD(  J)  *1 

909A 

077 

1755 

NOISC* J*1 

t'  09  A 

078 

1756 

IF  (KR ( 1)  >  1051,1051,1052 

B09A 

080 

1757 

1052 

READ  (KIN, 3)  NETA, (ETA  (I) , I*1,NETA) 

B09A 

081 

1758 

READ  ( KIN, 6)  KAPPA, CBAR 

B09A 

079 

1759 

1051 

CONTINUE 

B09A 

1760 

605 

WRITE  (KOUT,ll) 

B09A 

091 

1761 

WRITE  (K0UT,8)  C8AR, KAPPA, (ETA (I) ,I*i,NETA) 

B09A 

092 

1762 

606 

IF(KR(6>-1)  203,203,204 

809A 

093 

1763 

203 

READ  (KIN, 5)  CONE,  RNOSE 

eo9« 

094 

1764 

204 

IF(IABS (KR(6)-2)-l)  207,208,207 

BO  9/i 

095 

1765 

207 

READ  (KIN, 5) CROKAP(IS) ,IS*1,NS) 

B09» 

096 

1766 

IF  (NS-1)  234,234,2071 

B09A 

097 

1767 

2071 

IIS=2 

P09A 

ft  58 

1768 

LNZ*1 

B09A 

v99 

1769 

IF  (ROK AP (1) )  223,226,226 

0O9A 

100 

1770 

223 

RAONO=-ROKAP(l) 

309  A 

101 

1771 

WRITE  (KOUT,  12)  RAONO,COME 

B09A 

102 

1772 

ROKAP ( 1 )  =  0. 

B03A 

103 

1773 

OO  229  IS*1,NS 

1774 

IF  (ROKAP (IS) )  224,224,225 

B09A 

1 05 

1775 

22  4 

IF  (KR(6) )  221,221,222 

B09A 

106 

1776 

222 

ROKAP ( IS) =S( IS )* SI N(RA0N0/57. 29576) 

B09A 

107 

1777 

GO  TO  229 

809  A 

108 

1778 

221 

ROKAP ( IS) =RAONO*SI N(S(IS)/R*DN0) 

B09A 

109 

1779 

229 

CONTINUE 

BO  9  A 

110 

1780 

GO  TO  234 

B  09  A 

111 

1781 

225 

IF  (IS-NS)  2251,234,234 

B09A 

112 

1782 

2251 

IIS«IS*1 

B09A 

113 

1763 

LNZ*IS 

009  A 

114 

1784 

226 

00233  IS=IIS, NS 

P09A 

115 

1785 

IF  (ROKAP(IS))  233,233,227 

!'09A 

llo 

1786 

227 

IF  (IS-l-LNZ)  232,232,226 

P09A 

117 

1787 

228 

LNZ=LNZ*1 

BC9*» 

il» 

1788 

ROKAP(LNZ)*ROKAP(lNZ-l)«(S(lMZ)-SUNZ-l))/  (S(  IS) -S(LNZ-l)  ) 

* (ROKAP ( B09A 

119 

1789 

llSt-ROKAP(lNZ-l)  1 

B09A 

120 

1790 

GO  TO  227 

B094 

12! 

1791 

232 

INZ»IS 

BO  9A 

122 

1792 

233 

CONTINUE 

BP9A 

123 

1793 

234 

VKAP»  1. 

B0  9A 

124 

1794 

GO  TO  210 

809A 

125 

1795 

206 

00  209  IS*1»NS 

80  9* 

126 

1796 

209 

ROKAP (IS) *1. 

8C9A 

127 

1797 

VKAP*Q. 

B09  A 

128 

1798 

210 

CONTIKUE 

309A 

103 
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1799 

181  STEF  *  .451E-12 

1600 

IF  <KR(9)-J)  197 '193*196 

1601 

198  IF  <KR<9>-9>  193,193*197 

1602 

197  00  191  J«1,NS 

1603 

IF  (KR9CJ>-3>  191,193,192 

1809 

192  IF  (KR9CJ)-4)  191,193,191 

1805 

191  CONTINUE 

1606 

GO  TO  199 

1607 

193  REAO(KlN,215  (EHIV < I) , HCHARIX) ,  HPYG(I),  I«l,3> 

1608 

REAO( KIN, 22)  (ASU(I) ,BSU(I  )  •  1*1,3) 

1609 

22  FORMAT (6A9) 

1610 

21  FORMAT (9E8. 3) 

1611 

19  FORMAT (/1X39HQUASI-STEA0Y  ENERGY  BALANCE  AT  THE  WALL//5X19HSURFACE 

1612 

1  NUMBER26X1HH9X1H219X1M375X17MSURFACE  EMI  TTANCE17X1P3E19.5/5X39ME 

1613 

2NTNALPY  OF  CHAR  AT  REFERENCE  TENP3E15.5/5X39HENTHALPY  OF  PYROLYSIS 

1819 

3  GAS  ( BTU/LB) 3El5< 5 75X 27HE OUILIBRIUN  SURFACE  SPECIES5X3 (7X2A9) > 

1615 

WRITE  t  KOUT ,19)  EMI  V,  HCHAR ,  MPYG , 1 ASU ( 1 ) ,  B$U  (I)  ,  1*1,3) 

i 

1616 

199  IF  (KR(9)>5)  199,196,196 

1617 

199  00  195  J*1,NS 

1618 

IF  (KR9  ( J) -5)  195,  196,  196 

1619 

195  CONTINUE 

1820 

GO  TO  162 

1821 

196  REAO  IK  IN, 5)  EMI  ST , HTEF , AQLH , BOLM,CDUM 

1822 

WRITE  (KOUT, 20)  AOUM, BOUM, COUM 

1823 

WRITE  (KOUT, 19)  £HIST,MTEF 

* 

1629 

182  REAO(KIN,5) (PTCT(IT) ,IT*1,NITEH) 

i 

1825 

REAO( KIN, 5) (GE (IT) , IT»l,NITfHJ 

B09A 

131 

1 

1826 

REA0(KIN,5)(RA0FL(IT) f ITal.NITEM) 

0  09  A 

132 

\ 

1827 

2200  IF  (TIME (1) )  2201,220,220 

* 

1828 

2201  TIME(l)a-TIMEd) 

1829 

WRITE  (KOUT, 16) (TIME(I) ,I*1,NITEM) 

1330 

TIHE(1)=-TIHE<1> 

1831 

GO  TO  2202 

1832 

220  WRITE  (KOUT, 13)  <  TI  ME  <I)  ,  I*  1  ,MTEM> 

809  A 

137 

1833 

2202  WRITE  (K0UT,19)(  GE (I ) , I* 1 ,NI TEN) 

1639 

WRITE  (KOUT, 15) (PTET (I ) , 1= 1 ,WI TEM) 

»n9A 

139 

1835 

WRITE  (<OUT,l7) (RAOFL(I) ,1*1, HI TEM) 

1836 

RETURN 

609A 

190 

1637 

ENO 

609  A 

191 

1636 

CB10A 

810* 

001 

1639 

SUBROITINE  HISTXI 

8 1  0  A 

002 

1890 

COMMON /EDCCOH/  P|(90,  1),PTC<90,  1),SP£(  8,90,  1),0UES, 

EKTR- 

MOO 

1691 

1 UE (90) ,RHOE(90) , VMUE <9 0) , TI <9 0) .UfOGE , OUEOCE ,D2U60G , VMWE , CCE , C90 

|N  TR- 

MOO 

169? 

2,DSIP(90) ,IOSIP,TTVC,TVCC (9 0) , *E « <9 0) , SF ( 2 0 ) , CS ( 10) , CSPRI 2 0 > , 

ENTR- 

MOO 

1893 

3CGC20) ,3GP(20> , SREF , CEP, NEN 

ENTR- 

MM 

1699 

COMMON /ETACOH/ET A(15),0ETA(15)  ,OSQ(19)  ,0CU<19) ,81 <19),82( 19) 

6 1 0  A 

3 

1695 

1, LARI 153) ,861(93,16) ,862(30,19) 

810* 

9 

1696 

C0HM0N/MISC0M/C1,C2,C3,C9, ALPMO , BETA , 2HI6 , 1 9) , 2C 19, 19)  ,  2SP (9, J9,  6810* 

5 

1697 

1  ) ,XI(90),MF(15,5) ,MG(15,J) ,MSP(l5,3,  0) ,MAlPM,MUC,MHUe,HfW,0LX2 

818A 

6 

1896 

2,C3M(90) , BET AM (90) 

eio* 

7 

1699 

COMMON/ INTCOM/  KR(20> ,KIN, KCUT ,M*T 11 , MAT2I ,M6T| J,NAT2J, NC T A, IS.Nf 10* 

6 

i 

1650 

1S,IT,NTIM€,NSP,NSPM1 ,MAM,NLCQ,NM.|0,MRNL,  ITS  »KAPPA,C89? » CASE  t i5) 

810* 

9 

'  1 

1651 

2, B  (6) ,  MWE , NON, KQ ( 1 0> , HE M, WITEM, KRl 7 , NBT , N*T2, IOCNT , KR9 190) 

810* 

r 

1852 

3,<AUXO, JTIME,JSPEC,M0(3),IU,ISM 

cntr- 

MOO 

1853 

COMMON/PtMCOM/TIME  <  50)  ,PRE  (90)  ,*>TCT  »  50>,CE(  50>  ,3(90)  ,ROKAF  (90) 

bio* 

12 

1659 

l,RNOSE,YKAP,MOISC,IOISC(93)  ,NSO(13),MSCdO)  ,ITF(  50)  ,IP«C,«AOWO, 

§10* 

1? 

1855 

2CONC,R*OFL(  50! ,R*OR (90) ,R*C5(90> ,IRAO 

O’.  0* 

1656 

COMMON/VARCOM/E (9,l5),G(3,15),SP(3,15t  9) ,*LPH 

813* 

15 

104 
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1857 

COMHON/HALCOM/FN  (60*  1),T8<66,  1>,HN<60,  1),SRN(  8,60,  1) 

ENTR-NOO 

1856 

1 ,RHCYM (60»  1)  ,  FLUX Jl  3,60,  1),IHN,ITN,IFM, ISPW, I8H0V6, IFLUX J 

entr-noo 

1859 

DIMENSION  F0161 ,C0(6),SRD(6) 

81 OA  018 

1860 

C 

INITIALIZE  AXIAL  VARIATION  TERMS 

eiOA  019 

1861 

NUL*« 

81 0*  020 

1862 

IFlIS.NE.llCO  TO  399 

ENTR-MOO 

1863 

398 

XFIIOISCIIS) .NE.2)  CO  TO  399 

ENTR-NOO 

1866 

IS*IS*l 

entr-noo 

1865 

CO  TO  398 

ENTR-MOO 

1866 

399 

IFUR13).ECU8>CO  70  156 

ENTR-MOO 

1867 

If (IU-2)  196,152,155 

ENTR-MOO 

1666 

152 

0LX1-2.3 

ENTR-NOO 

1869 

If  (KR(6».EQ.O)OLX1>3.5 

entr-hoo 

1670 

IK  (XI (ISH) )  157,157,155 

ENTR-NOO 

1871 

156 

oz«o. 

81 OA  030 

1872 

01*0. 

B10A  031 

1673 

02*0. 

81  OA  032 

1876 

1675 

1676 

If  («M2)  .LT.O)  IS*-«R<2> 

IF  (WH2I.LT.8)  IDISC(IS>»1 

H*NETA-1 

810A  033 

1877 

03  160  1*1,  M 

B10A  036 

1876 

DO  160  J*l,6 

8 1 0 A  035 

1679 

ZM  (J, 11*0. 

B10A  036 

1880 

139 

00  160  K*NUL,NSPM1 

B10A  037 

1661 

2SP(J,I,X>«8. 

81 OA  038 

1662 

160 

CONTINUE 

8 1 OA  039 

1683 

00  16  1  1*1,  NET  A 

B10A  060 

1666 

00  162  J*i,3 

B10A  061 

1885 

Nf ( I, J) *8. 

B10A  062 

1686 

159 

00  162  «*NUL,NSPHl 

B10A  063 

1887 

NSMII , J,X)*0. 

B10A  066 

1866 

162 

CONTINUE 

P10A  065 

1889 

HF ( I , 61 *0 • 

810A  066 

1890 

161 

HF (I, 5)*0» 

8  1  OA  0  67 

1691 

ALMHO*  0 . 

81 OA  Q68 

1892 

MALPH*0. 

81 0 A  069 

1893 

DLX2*0. 

B10A  053 

1696 

00  TO  130 

6 1 0 A  051 

1895 

C 

COMPUTE  TWO-  OR  TNREf-FOlNT  DIFFERENCE  RELATIONS 

EIOA  052 

1696 

155 

OLXl*ALOC(XiaSI  /XI  (ISM)) 

ENTR-HOO 

1697 

IFdU.CT.  2.AN0.  <R(  3>  .£0.2. 6  NO.  10  ISC  (ISH)  ,N£.  i )  53  TO  121 

entr-noo 

1695 

157 

OZ*2./OLXl 

E8T9-NOO 

1*99 

01*-0Z 

81  OA  056 

1900 

02*1. 

815*  055 

1901 

CO  TO  165 

815* 

19  02 

121 

0Z*0L* l*Sl X2 

81  OA  6*9 

1903 

t31*-0I/t(K.Xl*0tX2)*Z. 

8154  8&" 

19*6 

D2*SLXl/<O2*0tX2J *2. 

810*  961 

I90f 

OZ* -01-92 

BlOA  06? 

1906 

165 

Ol.X2*OLXi 

81 3A  963 

1907 

ALPNO >0 i**LP«* 0 2*N ALRH 

913A  066 

190* 

nalrm-alrm 

BlOA  065 

1909 

122 

F013»*01«M6,  i)*02*MF(l,6) 

t 1 ?A  066 

1910 

C0(J)*0l»C(3,l)  *02*KCU,3) 

81 0  A  967 

1911 

00  167  I*Z,NETA 

1191  066 

1912 

F0a)-04*F(!2,r>*02*«F(I,2) 

SI  06  869 

1913 

FO<2)*01*F<3,I>*02*HF«I,3) 

819*  9?3 

1916 

f 0C6)*FQ13) 

8108  971 

105 
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1915 

FD!3)*01*F!4,X)f02*HF!I,4> 

81  OA 

072 

1915 

C6LL  T*VlO««OETMI-i>» nm  tFOll)  ,2H(  1,1-1  n 

810A 

073 

1917 

GD!ll*01*G(l, X ) ♦02*MG< I ,11 

81  OA 

074 

1915 

GDI2)a01’G(?,2>»0?*HG(I,2> 

81  OA 

075 

1919 

G0!4)*G0!3» 

BlOA 

076 

1920 

G0<3>»0i«U3,IU02*H6ll  ,3) 

8 1  OA 

077 

1921 

147 

CALL  Tm0R!0ETA!I-l),GD!2>  ,GO!l>,ZG<l,I-i>> 

BlOA 

078 

1922 

IF1NSPH13  162,162,166 

81 0* 

079 

1923 

166 

00  151  R*1,NSPN1 

BlOA 

080 

1924 

SJ*0«3)»01*SPM,1,«()402*HS?  11,3,0 

BlOA 

001 

1925 

00  151  1*2, META 

810A 

002 

1926 

SP0!1 ) *01*SP! 1 , 1 ,K)  ♦0i«MSP!t,l,R> 

BlOA 

003 

1927 

SP0 !2)*D1*$P!2,X,K) *U2*NSF  1 X ,2 ,R) 

BlOA 

084 

1928 

SP0<4> *SPG!3) 

BlOA 

055 

1929 

SF0!3>*0l«SP(3,X,KM02**SP!X,3,R> 

BlOA 

086 

1930 

151 

CALL  T  ATLCR  <0ET A 1 1- 11  ,SP0  (2> , SP0C1  > ,  ZSPfl , 1-1 , K>  > 

'  uc  u  t  ct  uii  nre 

BlOA 

BlOA 

087 

X  V  J  l 

j  ■  *  L  >1  •  J I  UH  a  W  V  A 

08  « 

1932 

162 

00  164  :*1,NETA 

BlOA 

080 

1933 

HF  (I,4)*F (4,11 

BlOA 

090 

1934 

MF<I,5l*DlrFll,m02*MFlX„  1> 

BlOA 

091 

1935 

00  164  .1*1,3 

BlOA 

092 

1936 

HF!I, J)*F(J,I) 

BJOA 

093 

1937 

MGII,  I) 

BlOA 

094 

1938 

IF1NSPH11  164,164,165 

BlOA 

095 

1939 

165 

00  149  R*1,NSPH1 

BlOA 

096 

1940 

149 

MSP1I, J,K)*SP(J,I,<) 

BlOA 

097 

1941 

164 

CONTINUE 

BlOA 

09a 

1942 

C 

COMPUTE  GROUPINGS  WHICH  DEFEND  ON  OZ 

BlOA 

099 

1943 

130 

C1«1.*0Z 

BlOA 

100 

1944 

C2*-Cl-0Z 

BlOA 

101 

1945 

C3*C3«(IS» 

BlOA 

102 

1946 

SETA*6ETAN!IS> 

BlOA 

103 

1947 

C4*fiET  A+Ci 

BlOA 

104 

1948 

9904 

FONNATf6XI2/8XiPiaElB.3/8K8ll0.3/f8«lOEl9.3)» 

BlOA 

105 

1949 

IFIRRU7I)  9905,9906,9905 

BlOA 

106 

1950 

99  05 

CONTINUE 

BlOA 

187 

1951 

WRITE (N OUT, 99 07J 

BlOA 

188 

1952 

9907 

FORMAT I2X27M0E8UG  IS ,0 L XI . . . ZH , 2C, MF, MG) 

BIO* 

109 

1953 

WRITE! ROUT, 9904)  IS , DL *1,01 X2 ,0Z, 01, 02 , ALPHC , H6LPH,Ci,  C2, 

C4,  F0B1QA 

110 

1954 

1  ,60,  !  !ZN!  J,J) , J*l,6)  ,1*1,4)  ,  <  <ZG(I,J)  ,  J*l,6>  ,1*1,4)  ,  (CMFt  I,  J)  ,  BIO* 

111 

1955 

2  J*l,5>  ,1*1,7)  ,  t  <HG<  I,  =  1,3)  ,1*1,7) 

BlOA 

112 

1956 

IF(WSPNl)  9906, 9996, 9988 

BlOA 

113 

1957 

9906 

WRITE! ROUT, 990 9)  ( !  ! ZSF  ( I, J  ,  XI , R* l,NSPNi> . J*1 , 6) , ; - 1,4)  , < ! 1 HSF !  I, J, 81 OA 

114 

1958 

1  R)  ,R*1,NS^1)  ,J*1,3),  1*1,7) 

BlOA 

115 

1959 

9909 

FORMAT I2X13M0EBUG  ZSF , HSF/ < f X 1 OE 10. 3) ) 

810A 

116 

1960 

9906 

CONTINUE 

B1CA 

117 

1961 

RETURN 

B1*S 

Hi 

1962 

ENO 

P*  5S 

11 4 

1963 

cwiia 

Bit  A 

801 

19*4 

SUBROUTINE  OUTPUT 

All* 

08? 

1 

DIMENSION  C1J(  71, U 

an  a 

S3 

1966 

COHNON/BIOCON/  NOA  t  ?»,  NOB!  713  ,NSFEC,  FM  7l,l5),W!J) 

lUFUO)  9116 

4 

1967 

1  ,  ICFS  <  1 0  )  ,PIE  ASEtLCFW  !  18*  ,1.2,13 

ENTR- 

•  mc- 

1966 

COMMON /COECCN/  C5,C8,C7,C»,CI,Cl«,Cil,Cl?tC13,C14,Cl5»ltA 

6 

1969 

l,Cl6,C!7,Cl8,:i4,e28,Q2l,C22,:23,C24,C2f,SZ«,e27,C28,C29, 

C  30  ,C  31  ,CBl  1 A 

y 

1970 

2 32, C3J, C34, C35, C 36, C37.C39 , e39, C48, C4 l ,C*2 ,C43 , C44  ,C45 , C66 , C4 ? .C48B1 1 A 

8 

1971 

3,C44,C50,C51,C52,C53,C54,C55,Cf6,C57,CV6,C59,C68,C61,C*2, 

C83,C64,Ctl 1A 

4 

1972 

465,C66,C67,C69,C69,C79,C71,CT2tC73,C74,C75,C76,C77,C78,C79,Ct»,C»I»llA 

It 

106 
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1973 

1974 

1975 

1976 

1977 
1979 
1979 
i960 

1991 

1992 

1993 

1994 

1995 

1996 

1997 
1999 
1999 
1999 

1991 

1992 

1993 

1994 

1995 

1996 

1997 
1999 
1999 
2900 
2001 
2002 
2003 
2094 

2005 

2006 
2317 

2009 
2909 

2010 
2011 
2  01? 

2013 

2014 

2015 

2016 
2017 
•251* 
2519 
2020 
2021 
2922 
2523 

2926 
2925 
2326 

2927 
2529 
2929 
293; 


31, DTI  71) 

5  CR<  7 1) , HHC  71), SOI  71), TCI  7i),VLNKt  71), (I  71 ) , PNUS 110), 

6  aC(19),0LNKIl9> ,«TllO),I8Clll),Bf 110) ,JZ(  4) 
COM*ION/CT»COt1/ET*<l5>,OET*  Il5>  ,0SQI14>  ,OCU  1 14)  ,Bl  ( 14) ,  821 14 ) 

1, LARI  153)  ,»Al(43,li>,BA2U0,i6> 

CONMON/fLXCOH/OELQH.OCUMt  9 )  ,  OQNH  15  3  >  ,  OJNL  1 15 3  ,  A)  ,MALLQ 

1, MALLJI  9) ,GW, V JKH I  9) , TBRALL 

CONNON/HI5COH/Cl,C2,C3,C4,*LRHO,2CTA,  2*114, 14)  , ZC<- >  14)  ,2SPI4,i4, 

1  )  ,Xlt48),NFI15,5)  ,M6I15,3)  ,HSR115,3,  9)  ,  NAIRN  ,MUE  ,HHJE  ,  HFM  ,  OL  12 

2 ,  C3MI4  0) ,8ETAHI40) 

COHNON/INTCOH/  <R 1 2fl) , KIN, XCUT ,N ATH , HAT21 , HA T 1 J, HAT2J, HE T A ,  I  ,  IS, 
15, IT, NT IHE»NSR»  NSRN1 , MAN, NLEQ, KKLEQ, NRKL ,  I TS ,KARR  * ,C8AR , CASE  1 15) 
2,0 (A)  ,  NME ,NON , KQ I  IQ)  , ITE", NITER, KRl 7 , 4 8T , NiT? , IOENT , KR9 140 ) 

3 ,  X AUXO , JTINE , JSREC , NO  13) 

COHNON/OUTCOH/T I 15 ) , RES ,0C 1ST , THEN5 i , I MNCM , CM, 0LOW , SHEAR, CF , SHAPE 
1  ,CNI  9) , TMELEOl  9) 

CONHON/RffNCON/TIftC  I  50) ,RRE <40> , RTET I  f0),CEt  59)  ,  S  (40)  ,  ROK  A*  140) 
1 , RNOSE , VK*R,NOISC, I D ISC (40 )  ,NSD I  IS) , NSO 1 1 0 > ,ITF<  53) ,  IRRE »RACNQ, 
3C0NE , RAQFL I  50) ,RAOR(4  0) ,R AOS  140) ,XRAO 
CONNOM/RRRCOH/R8I15)  ,T  U5)  ,»*CN  15)  ,S£<  «** 

l.fHUMSI.WiyllU.MIT""*  "*"*•  “ 


811* 

u 

eu* 

12 

oiia 

13 

2  11* 

14 

01 1A 

15 

Oil* 

16 

;toiia 

17 

81 1 A 

10 

;,8iia 

19 

cNTR- 

H09 

ENT9- 

NOO 

ENTR- 

NOO 

011* 

22 

ENTR- 

NOO 

,811* 

24 

Oil* 

25 

41  It 

26 

>011* 

27 

*11* 

23 

,  01 1 A 

29 

811A 

30 

211* 

31 

ENTR- 

NOO 

311* 

33 

Oil* 

34 

Oil* 

35 

211* 

36 

811* 

37 

911* 

39 

311* 

39 

9311* 

40 

Bit* 

41 

511* 

42 

NB1  1* 

43 

811* 

44 

211* 

45 

211* 

46 

out 

47 

911* 

48 

211* 

69 

Sll* 

53 

Bit* 

51 

?t  1* 

5? 

581  {  A 

73 

>511* 

.  *» 

*11* 

57 

f>  •  , 

5? 

911* 

57 

Oil* 

51 

911* 

5  j 

*1*1 

60 

211* 

61 

67 

21 

61 

*11* 

64 

nu 

ei» 

in* 

J  57 
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2  (lB  C  FT)  (ATM)  VELOCITY 

3G  DIFFIJSICNAL  TOT  EN7H  RERAD  QCCND  /5X110H 

4**2  (FT/SEC)  PARAMETER 

5  (8TU/SEC  SO  FT)  /5X lPilE 1 0. 3> 


FORMAT (/6X109H 


MASS  FLUXES 


1EMENTA*.  MASS  OIFFUSIVE  FLUXES  CLB/SEC  SQ  FT) 


MALIZINP11A 

/SEC) 


el  en  a 
/5X  5  OH  B11A 


2SHEAR  MECH  R£M  PYROL  GAS  CHAR  1 
1',  FORMAT 

3  CL  8/SEC  SQ  FT) 

3  FORMAT  C5XIP12E10-.  3) 

18  FORMAT (/5X109HMOM  TRANS  HEAT  TRANS  C 
1EMENTAL  MASS  TRANSFER  COEFFICIENTS, 
2C0EFF,  COEFF,  (EASED  ON  CH'  F 

2B/SEC  SQ  FT)  FOR 

3RHG*UE*CH  PYROL  GAS  CHAR  TOTAL  GAS 


TOTAL  GAS  8UX2A4,  IX)  ) 

CSX  SOHCLB/SO  FT)  BUA 
)  Bll  A 

BLOWING  PARAMETERS  ELG11A 

/5X110H  Bl 1 A 
FOR  RHOE*UE*CM  (LBllA 

/4X51HRK0*UE*CF/2  BUA 


REYNOLDS  MA 

/FX110HTHB11A 


THETA 


delstabua 


3RHG*UE*CH  PYROL  GAS  CHAR  TOTAL  GAS  BUA 

4  8  (1X2A4 ,  IX) ) 

4  FORMAT  (5XH0H  MOMENTUM  DISPLACE,  EFFECTIVE  ENTHALPY  REYNOLDS  MA 

1SS  THICKNESSES  (FT)  FOR  /FX1 1 OHTH Bl 1A 

2ICKNE3S, THICKNESS,  BODY  THICKNESS,  NUWEER 

3  /5X  5QH  THETA  DELSTABUA 

4R  DISPLACE.  L  AM  30  A  PER  FOOT  8(1X2A451X)) 

20  FORMAT (2X,4(6X,4H( FT) ) /5X1P12E10.3) 

5  FORMAT ;/2.U7HN00AL  INFORMATION)  Bl  i  A 

6  FORMAT  C5X?HDIST».NCE,4X3HET  A,  8X1KF.9X2HFP, 7X3HFPP, 7X5HSHEA R, 2X ilHTO 
1TAL  ENTH-,3X2HGP,7X3HGPP,6X6KSTATIC  5X4HTEMP,5XBHELECTR0N/ 

25X9HFR0M  WALL , 23X7H C=U/UE) , 23X7HHALPY, G, 23 X8H ENTHALPY,  12X9HC0LL  FR 
3EQ/8X4HCFT),44X9HCL8/FTSQ)  ,  2X8M8TU/LB)  *2X 8H (BTU/LB)  ,2X8H  CBTU/LB) , 
42X8HCBTU/LB),2X7HC0EG  R) ,4! 7H  (1/SEC) i 

7  FORMAT  (5XU0H  DISTANCE  DENSITY,  VISCOSITY,  RHO*MU  SPECIFIC  THB11A 

1ERMAL  PRANDTL  MO0IFIE0  MOLECULAR  RHOSO*£PS  MACH  /5X11BHFR 
20M  WALL  RHO  MU  /RHOE’KUE,  HEAT  COND  CBTU  NUMBER  Bl 1A 

3  SCHMIDT  WEIGHT  /RH0E*MUE  NUMBEF<  /5X110H  (FT)  (LB/CU 

4FT )  LB/SEC  FT  r  (BTU/L3  R)  SEC  FT  R)  NUMBER  BUA 

5  )  BUA 

8  FORMAT  C/2X78HEI whcNTAL  FRACTIONS  AND  TH"IR  FIRST  AND  SECONO  DERIVB11A 

1ATIVGS  WITH  RESPECT  TO  ETA,/)  BllA 

12  FORMAT  (/)  BUA 

13  FORMAT ( /  43X  2  LUDI STANCE  FROM  WALL -FT / C 15 X, IP10E10 , 3/20X , 

1  1P9E10.3) > 

.14  FORMAT  (6X,2A4,  IX,  1P10E 10. 3/20X,  1F9E1 0 . 3/ ( 15X,  1P1 0E1 0.3/20X ,  IP 
1  9E10.3)) 

15  FORMAT  C15X,1P10E10.3/20X1P5E10.3) 

16  FORMAT  (/2X14HM0LE  FRACTIONS,/)  BUA 

17  FORMAT C/23H  SURFACE  SPECIES  IS  2A4) 

310  FORMAT  (A2, 312, 1P6E12. 5)  BUA 

312  FORMAT  (A2.  312,  lP6El2.5/C8X,lP6E12.5)>  BUA 

313  FORMAT  CA2,6X,  18A4/ (20  A4)  )  BUA 

CAT A  I BLANK/2H  / 

TVGFCX)  =  CSQRT ( AMAX 1 ( 0. , 1.  +  2 . *CCSCR*XI ) -1 . )  /COSOR 

IF  (KRCU)-l)  300,  300,  301  BUA 

300  IF  CKRC 9) )  302,302,307  BUA 

307  IFCKR  (  9>-2)  30i,3Cl,  302  BUA 

302  RHOVW  CIS,  IT)=  C1*F  (1,1)  +WF<1,5>  BUA 

301  C 8 9=- C 7* A L PH *VMUE  (IS)  BUA 

OUMl=-i./C3  BUA 

DUM2=RH0VW(IS,IT)/C3  BUA 

IF  CUE  < IS)  -i.  0)  3012,301i,3012  BUA 

5011  UECIS)  =0.  BUA 


AFWl'TR-69-114,  Vol  I  (Supp.) 


2089 

301.2  CONTINUE 

B11A 

2090 

WALLQ=-*ALLQ/C3 

BllA 

147 

2091 

[)ER(3»=MAUQ-DUM2*G<l,i> 

BllA 

148 

2092 

MAMJCNSPjsa. 

B11A 

149 

2093 

IF  (NSPM1)  3051,3051,3050 

eilA 

2  094 

3050  00  305  K*i,NSPMi 

Bl'.A 

2095 

,  MlU'tK>*VJKH(K> 

euA 

151 

2098 

345  HALLJ(NSP)=NALLJ(.\'SP!-WALLJ(K) 

eiiA 

152 

209/ 

3051  CONTINUE  ,, 

BllA 

2098 

0FR<l>s«m/»fc3 

BllA 

153 

2099 

0ER<2>=WC3>/C3 

BllA 

154 

2100 

VMECH=0ER(1)«-0ER  C2  >  -DUN2 

BllA 

155 

2101 

OUM4~VM£CH*100  • 

BllA 

156, 

2102 

IF  (DUM4»0UN2)  1901,190,190 

BllA 

157 

2103 

19 Cl  VHECH*  0* 

BllA 

158 

2104 

190  IF  CABS (BETA)-.  00  01)  303,304,304 

BllA 

159 

2105 

i-5C,Z  BETA*  0. 

BllA 

160 

2106 

304  Yfir*0. 

BllA 

161 

2137 

SHFAC=-UE  US)  / (C3*ALPH*ALPH*32. 174) 

2108 

•  GUOS ( 1 ) * ICAPCI 1) +EPSA(1))*FI3,1) *SHFAC 

2109 

DO  182  I*2,NETA 

BllA 

162 

2110 

OUOS 1 1 1 =(CAPC  (I)+EPSAII1)*F(3* I>*SHFAC 

2111 

182  Y(I)*V(I-1)+C89*CRN0(I-1> 

BllA 

163 

2112 

.  Qe0N0=VNUEJIS)/PR(l)*CAPC(l)/Ce9*GC2,l)+DUM2*G(l,l) 

SHEAR-DUOSU1 

BllA 

164 

2113 

2114 

IF  (KR(9)~3)  2101,2102,2102 

2115 

2101  ENIS==0. 

2116 

2102  RERAD* 1 .481E-12) *ITI1) 1 **4»*EHIS 

2117 

CDIFU*-CAPC<i)/ALPH*CP8AR(i)/PR(l)*TPWALL/C3 

2118 

WRITE  I KOUT, 1)  ALPH,XI IIS) ,RCKAP IIS) , PE (IS , IT ) , UE IIS) ,  BET  A , DUMl, 

2119 

1  WALLQ,OER(3),RERAO,ODIFU 

2120 

212  OUHl=RHOE(IS)*UE(IS)/VMUt(ISI 

eiiA 

179 

2121 

CH=  HALLO  f  (G(i,NETA)-G(l,l) ) 

BllA 

180 

2122 

CFsCAPC(l)/ALPH*VHUE(IS)/C85*F(3,i) 

eiiA 

181 

2123 

213  HRITt 1 KOUT , 2)  I ATA IK) , ATB 1 K ) , K=1 ,NSP) 

BllA 

183 

2124 

WRITE  IK0UT,19) 

BllA 

184 

2125 

DUM4=ALPH*ALPH 

BllA 

185 

2126 

DO  203  1*1, NET  A 

BllA 

186 

2127 

SP (1, I , NSP)*1« 0 

BllA 

187 

2128 

SPI2,I,NSP)=0. 

BllA 

168 

2129 

203  SP (3, I , NSP) =0. 

BllA 

189 

213Q 

IF  (NSPM1)  2021,2021,2020 

BllA 

2131 

2020  DO  202  K=l,NSPMl 

BJ  1A 

2132 

DO  202  I*1,NETA 

BllA 

191 

2133 

SP  1 1 , 1 ,  USP)  *SP  (1 , 1 , NSP) -SP  1 1 . 1.K) 

BllA 

192 

2134 

SP(2,I,K)=SPI2,ItK)/ALPH 

BllA 

193 

2135 

SP(2,I,NSP)=SP(2,I,NSP)-SP(2,I,K) 

BllA 

194 

2136 

SP(3,I ,K)=SP(3,I,K)/DUN4 

eiiA 

195 

2137 

202  SPI3, I , NSP)=SP (3,1 , NSP) -SP (3, I ,K) 

BllA 

196 

2-38 

2021  CONTINUE 

BllA 

2139 

XSP (5 , NSP) *F(1 , NETA * -F (1,1) 

BllA 

197 

2140 

IFINSPMl)  2138,2136,2135 

2141 

2138  VJKW{1)=0. 

2142 

CN(1)=0» 

2143 

THELEN (1)=0, 

2144 

GO  TO  2137 

2145 

2135  DO  2136  I=1,NSPM1 

BllA 

2146 

2136  XSP(5,NSP)*XSP(5,NSP'-XSP(5,I) 

BllA 

199 

109 
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2147 

00  2131  1=1, NSP 

BllA 

200 

2148 

VJKW(I)=0. 

B11A 

201 

2149 

00  2132  K=1,NSF 

BllA 

202 

2150 

2132 

V  JKW  ( I )  =V  JKW  <I)-WALLJ(K)/HTN(K)*CIJ(I»K) 

BllA 

2  03 

2151 

2131 

VJKH<I)=VJi<W<I)*WATt:> 

BllA 

204 

2152 

2137 

CONTINUE 

2153 

WRITE ( KOUT ,3)  SHEAR, VMECH, OER(l) ,DER(2) ,DUM2,  (VJKW(I) , 1=1, NSP) 

BllA 

205 

2154 

214 

RES=0UM1*S(IS) 

BllA 

206 

2155 

DUM3*C89».F(1,NETA)-F<1,1) J/ALPH 

BllA 

207 

2156 

DELST=  Y (NFTA) -QUM3 

BllA 

208 

2157 

REDELS=DUM  1*DELST 

BllA 

209 

2158 

THENGY=(OUM3*G(l,HETA)-C89/ALPH*XG(5) >/(G(l,NETA)-G(i,  1>) 

BllA 

210 

2159 

r.£THEN=DUMl*THENGY 

BllA 

211 

2160 

THMOM=OUM3-C89/ALPH*XM(5)/ALPH 

BllA 

212 

2161 

RETHMO=OUM1*THMOM 

BllA 

213 

2152 

0ELBD=Y(NETA)~C89/ALPH*F(1,NETA) 

2163 

THC0ND=CP6AR(1)  /RHO( 1) *RH0E (I S) /G (2 , 1 > *C89* (7 <NETA> -T( 1) ) 

BllA 

215 

2164 

BL0W=0UM2/CH 

BllA 

216 

2165 

207 

BLOHPG=OER(l)/CH 

BllA 

218 

2166 

BL0WCW=DER(2)/CH 

BllA 

219 

2167 

IF(NSPHl)  2074,2074,2070 

2168 

2070 

DC  3271  1=1, NSP 

2169 

THELEM(I)=0. 

BllA 

221 

2170 

DU2=0. 

2171 

DO  2072  K=1,NSP 

BllA 

223 

2172 

0UZ=0UZ-K0UM3*SP(1,NETA,K)-C89/ALPH*XSP(5,K))/WTK(K»*CIJ(I,K> 

2173 

2072 

thelem(I)=theleh(I)+<sp(i,neta,k;-sp(i,i,k))/wtm(k)*cij(i,k) 

BllA 

226 

2174 

CM(I)=VJKW<I)/(THELEM(i>*WAT(I)) 

2175 

2071 

THELEH  (I)=DUZ/THELEr1  (I) 

2176 

2074 

IF  (KQ (9) )  2075,2078,2075 

2177 

2075 

COSOR=-TVCC(IS) /VMU£(IS)*0.5/C3*FLOAT(KQ(9>) 

2178 

DO  2076  1=1, NET A 

2179 

Y(T)  =  TVCF(Y(II)  ) 

2180 

2076 

DUOS(I)=OUOS<I>  *(1.+COSOR*Y (I) ) 

218). 

DELST=TVCF (DEIST) 

2182 

DELdO=TVCF  (DELBO) 

2183 

THMOH=TVCF(THMOM) 

2184 

THENGY=TVGF(THENGY) 

2185 

DO  2077  K=l, NSP 

2186 

2077 

THELEH ( K) =  TVCF (THELEH (K) ) 

2187 

2078 

CONTINUE 

2188 

WRITE (KOUT, 18)  ( AT A { K> , AY8 { K) ,K=1,NSP> 

BllA 

228 

2189 

WRITE  (KOUT, 3)  CF,CH , BLOWP G  , BLOWCH, BL OW, (CM ( I >  ,  1=1 , NSP) 

BllA 

229 

2190 

WRITE ( KOUT ,12) 

BllA 

232 

2191 

WRITE (KOUT, 4)  < ATA ( K) , ATB ( K) ,K=1,NSP> 

BllA 

233 

2192 

WRITE (KOUT, 20)  (HMOM, DEIST ,0ELBD, THEN  GY, DUN 1, (THELEH (K)  ,  K=l, NSP) 

2193 

209 

WRITE (KOUT, 5) 

BllA 

238 

2194 

WRITE ( KOUT ,6) 

BllA 

239 

2195 

DO  183  1=1, NET  A 

BllA 

240 

2196 

C 

COMPUTE  TRUE  VALUES  OF  F(I,J)  AND  ETA 

BllA 

241 

2197 

OER (1) =F (1,1) 

2198 

0ER(2)=F(2,I)/ALPH 

2199 

0ER<3) -F (3,1) 70UM4 

2200 

DER(4) =OUOS(I) 

2201 

OER(5) =G ( 1,1) 

2202 

GER(6) =G(2,I)/ALPH 

2203 

DER(7)=G(3,I)/DUM4 

2204 

RETA=ETA(I)*ALPH 

110 
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2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 

2229 

2230 

2231 

2232 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 
2',53 

2259 

2260 
2261 
2262 


0ERC8) *5. 814E*12*PE (IS ,IT) /SORT (T(I>/1.8) 

183  WRITE ( K0UT,3)  Y < I> ,RET A, C0ER< J) ,J=1,7> , 

1  H(I) ,TCI),DER(8) 

WRITE(K0UT,12> 

216  WRITE (KOUT ,7) 

00  184  I=1*NET A 
GONOsCPBAR (I) /PR (I ) *VMU(I> 

GMR (I>=ABSCGMRCI) ) 

ACH=F(2,I)/ALPH*U£(IS)/SQRT(GMR(I)/VMWCIJ*T(I>*49732-> 

184  NRITE(K0UT,3)Y(I),RH0(I),VNUCI),CAPCCI>,CPBAR{I) ,CCND, PRCI) , SC  (I > , 
1  WMWII ) ,EPSACI> ,  ACH 

IF  (KR (7) .ECU  1)  GO  TO  193 
WRITE  CKOUT, 13)  (Y <1 » , 1=1, NETA) 

WRITECKOUT,  8) 

DO  201  K*1,NSP 

WRITE  (KOUTf 14)  MOA (K> ,MOB CIO  , CSP 1 1, 1 , K) , 1*1, NETA) 

WRITE  CKOUT, 15)  CSP  C2,I  ,K»  ,  1  =  1, NETA) 

WRITE  (KOUT, 15) (SP(3,I,K) , 1=1, NETA) 

IF  (NSPMl)  2041,2041,2040 
DO  204  K=l, NSPMl 
DO  204  1=1, NET  A 
SP(2,I,K)=SP(2,I,K)*ALPH 
SP(3,I,K)  =  SP(3,I,K>  *0UM4 
CONTINUE 
WRITE  CKOUT, 16) 

DC  196  J=1,NSPEC 

WRITE CKOUT, 14)  MOA ( J) , MOB ( J ) , CFR CJ, I) , 1=1, NETA) 
IF(KR(9).EQ.3.0R.KR(9).EQ,4)  WRITECKOUT, 17)  MOA ( ISU) , MOBC I SU) 
CONTINUE 


201 

2040 


204 

2041 


196 

193 

325 


WALL  Q=- 

RETURN 

END 


WALLQ*C3 


cana 


SUBROUTINE  FELTRU 

DIMENSION  HIW(  71,3)  ,  VKIE  (  7H,VKIKC  7l),ZIEC  7l),ZIWC  7l»  , 

12IEST R (  71) ,ZIWSTR {  71),ZKWSRTC  9),ZKESRTC  9),ZKWSTT(  9),ZKESTT(  9 
2)  ,ZISOIF  C  71) , ZKOIF  C  9),ZKT0IFC  9),CMKC  9) 

DIMENSION  CIJC  71,1) 

C0MM0N/8LQC0M/  MOAC  71),  M08C  71) , NSPEC, FR C  71,15) ,WC3> , LEF  ( 10) 

1  , LEFS  CIO) ,PIEASE, LEFW  CIO) ,L2,L3 

COMMON/COECON/  CK1C  8),CK2C  8),CK3C  8),CK4(  8),CK5C  8),CK6C  8) 

1 ,  CK7 f  8) ,CK8C  8) ,CK9 C  8),CKiOC  8),CK11(  8),CK12(  8),CK13C  8) 

2 ,  CK14 (  8),CK15(  8),CK16C  8),CK17(  8),CK18C  8),CK19C  8),CK20(  8) 
o,CK21(  8) , CK22  C  8),CKK1C  8,  8),CKK2(  8,  8)  ,  XN  (5 )  ,XG (5)  ,  XSP  (5  ,  9) 
4.CKK3C  3,  8) 

CCMMON/CR0COM/HCARB,EMIS,STEF,ADUM,BDUM,CDUW,HTEF,HMAT  ,EMISC,EMIST 
1,HPG,ASU<3),8SUC3) ,HPYGC3) ,HCHARC3)  ,EMIVC3) ,KS (4  0) , ISU 
COMt.ON/EDGCOM/  PE(4fl,  1),PTEC40,  1),SPEC  8,40,  1),DUES, 

1UE (4  0) , RHOEC40) ,VMUEC40),TE(40) ,UEDGE ,DUEOGE , D2UEDG, VMWE,  HE , C90 

2  ,DSIP(40),IDSIP,TTVC,TVCCC40) 

COMMON/EPSCOM/  ELCON,YAP»CLNUH,SCT,PRT, RED, OVS,RHCVS,PI,PIM,Cl, 

1  EPSA(15) ,EPS1,EL(15),0PI(15,2) ,OEPC, YREF,RETR,VINTR(15) 

COMMON /EQPCOM/  RBC  7l,2),RCC  71, 2), ROC  71,2) ,RE<  7l,2),RF(  71,2), 

1  TU  <  71,2), FF(  71) ,FFA,IFC  (  71) , ATA Cl  0) , ATP ( i 0) , ATC C 103 , W A T ( 1 0 ) , 

2  KATC10) ,IRC10> ,I7f KZC10) ,LAMIC  71) ,P,Z,TK  (10  ,  7),VN(  71), 

3  VNU (  71,10),ITFF,KR2,HCH,NCV,WM,WTNC  7 1) , YY Y  <  71>,YW<  7l),GG(  7l) 

4  , TQ ( 1 0,  7),E?^VRK,SIGMA,SASMOl 
COMMON/EOTCOM/SIP,HlF,EEL,EENL,FLIQ,CPF,IRE,IER, AA,IITS,IN, IL, IIT, 


BUA 

250 

811 A 

258 

B11A 

259 

B11A 

260 

BliA 

261 

B11A 

263 

311A 

26  r 

eiiA 

26'  > 

BUA 

26o 

El  1 A 

267 

B11A 

268 

B11A 

E11A 

BUA 

270 

BUA 

271 

BUA 

272 

BUA 

BUA 

273 

BUA 

274 

:ua 

275 

BUA 

276 

BUA 

307 

BUB 

002 

BUS 

003 

'BUB 

004 

SUB 

005 

BUB 

06 

BUB 

7 

ENTR-MOO 

BUB 

9 

BUB 

10 

eue 

11 

BUB 

12 

BUB 

13 

BUB 

14 

BUR 

15 

BUB 

16 

BUB 

17 

BUB 

18 

eue 

19 

ENTR-MOD 

.8119 

21 

BUB 

22 

EUO 

23 

bub 

24 

BUB 

25 

»  BUB 

26 
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2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 
2260 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 
2255 

2296 

2297 
2253 

2299 

2300 

2301 
23  02 

2303 

2304 
2  305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 


1  MODE, HMELT,SMELT,TNAX,TMIN, KELT, SUMN, SUML » WS, WSS, BX,ISP2 , ISPQ ,  EllB  27 

2  ISP,KKJ,SVA,SV3,SVC,SV0,3UNC>FFF,CMF,EP,RV,IFCJC,HTG,WTL,JC,HHG,  B11B  28 

3  CCPG,TTMIN,TTMAX,L7 ,L8,I8 (11) ,EB(10)  ,EBL(10> ,A(16,16>  ,BB(l6),  ENTR-MOD 

4  IP<  71), ALP (10) ,FNU(10),GANH(10),GAMF(10) ,5LAM(10),DY(  71),RVS, 

5  CP(  71),HH<  7i),SB<  711, TC(  7l>;VLN<(  71), E(  7l>  ,PNUS(10) » 

6  BC(10) ,BLNK(10) ,8Y(10) ,IBC<10) ,BE<10> ,J2<  4) 

COMMON/ETACOM/ETA(15) ,  OETA (15),DSQ<14) ,DCU(14) ,Bl ( 14) ,  B2( 14) 

1 ,  L AR (153) ,BA1 (43,18) ,BA2(3  0,15> 

COMMON/FLXCOM/DELQW,  DEL  JW  (  8 ) ,  OQNL  (153),DJK'L(l5  3,  8),WALLQ 

1 ,  HALL J (  8>,QW,VJKW(  9) ,TPWALL 

COMMON/HISCOM/C1,C2,C3,C4, A LPHO , BETA , 2M (4, 14) , ZG (4, 14)  ,ZSP(4,14, 

1  ) ,XI(40),HF(15,5) ,HG(15,3) ,HSP(15,3,  8) ,HALPH,HUE,HHU£,HFW,0LX2 

2, C3M(40)  ,BETAM(40) 

C CMMON/IN  TCOM7  KR  (20 ) , KIN,  KCUT ,MATiI,  MAT2I  ,MATi JV-MAT2J,NET A,  I,  IS,N BUB 
lS,  IT,  NTIME,NSP,  NSPMl  ,NAM,NLEO,NNL£Q,  NRNL,  ITS,  KAPPA, CBAR,  CASE  ( 15 >  PUB 

2 ,  B (8) ,  MWE,NON,KQ(10> , ITEM,NITEM , KR17 ,NBT ,NBT2, IDENT , KR9 (40) 

3, KAUXO,JTIME,JSPEC,MO(3> 

COMMON/OUTCOM/Y (15 ), RES , DELST, THENGY, THMOM, CH, BLOW, SHEAR, CF , SHAPE 
1  ,CM(  9) , THELEM (  9) 

COMMON/PRMCOM/TIME (  50) ,PR£  (40) ,PTET{  50),GE(  50) ,S(40) ,ROKAP (40) 

1 , RNOSE , VKAP.ND ISC, ID  ISC (40) ,NSD (10) , MSD ( 10) , ITF (  50) ,IPRE , RAONO, 

2CONE, RAOFL (  50) ,RADR(40) ,R ADS  (40) ,IRAD 
C0MM0N/PRPC0M/PR(15) ,T (15) , RHO( 15) , SC ( 15) , C APC (1 5) »QR(15) ,H(l5) 

1, CPBAR(15) ,VMW(15) ,PHIK(15 ,  8) ,DRHOH, DRHOK (  8),ZK(  8),DZKH(  8), 

2MU3K (  8)  ,0MU4K (  8),OTK(  8) ,OPHIKH(  8),DPRK(  8),DSCK(  8>,DCAPCK( 

3 , OHTILK (  8) ,OQRK (  8),DCPBK(  8),DCPTK(  8>,DMU12K(  8),DZKK(  8,  8) 

4 ,  DPHIKK  (  3,  8),  OMU4H , CMU3H,OHTIL H,VMU12 ,CT  ,CTR,CPTIL , HTIL 

5 ,  VMU3, OTH,DCAPCH,OPRH, OSCH ,DQRH,CCP8H, DCPTH, DMU12H, VMU (15 ) ,  RHOP 
6 (15) ,PHIKP(15) , HP, TP,ZKP(  8 ) , VMU3P, VMU4P,HTILP, CRHO (14) , GMR (15) 

COMMON/TEMCOM/SPOUM(  8) ,OER (40) ,DUMM1 (15) , SLOPE (15) ,REDUM (15) 

1 , SDUM1 (40) | SOU M2 (40) ,FWOUM (40) ,XICON(4Q) ,FHCON(40> ,FWINIT (  1) 

2,  XIINIT (  1 ) ( DUDS (  40) 

COMMON/ VARCOM/F (4,l5),G(3,l5) ,SP<3»15,  9),ALPH 
COMMON/NALCOM/FW (40,  1),TH(40,  1>,HW(40,  1),SPH(  8,40,  1) 

1 »  RHCVW ( 40 ,  1>  »  FLUX J  (  3,40,  1)  ,  IHM, ITH , IFW, ISPW , IRHOVW,  IFL UX J 


B11B 
DilB 
B11B 
B11B 
BUB 
B113 
81  IB 
86118 
EllB 
B11B 


B11B 
B11B 
B119 

bus 

EllB 
BUB 
Bllb 
B113 
DB11B 
8) BilB 
B11B 
B11B 
BUB 
B11B 
BUB 
EllB 
BUB 
feUB 
BUB 
BUB 


30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 


DIMENSION  GAM  (  10  )  ,  TNC  (3)  ,  S  HHFP  (3)  ,  SHWFE  (3)  ,  SDPTIL  (3)  ,SCP<  31  ,  CHA  (  3)  BUB 


1 , CME  (3)  ,CHE(3)  ,  RATI  (3)  , RAT 2  ( 3) , RAT3 ( 3>  , TITL  ( 3)  ,QCHEM(3>  BUB 

EQUIVALENCE  (VNU.CIJ)  BllA  037 

310  FORMAT(A2,3I?,xP6E;2.5)  BUA  131 

312  FORMAT  (A2,3I2,1P6E12.5/(8X,1P6E12.5>>  BUA  132 

313  FORMAT  f A2 ,6X, 18 A47 ( 20 A4) )  BUA  133 

316  F0RMAT(E12.4,3X3A6,2X2A4,3X13HNASS  FRACTION  /(35X2A4)  )  RDG 

317  FORMAT (4012)  RDG 

318  F0RMAT(E12.4,3X3A6,2X2A4,3X13HM0LE  FRACTION  )  RDG 

319  FORMAT (3(1 3X9(2H**), 14 HNON- CON VERGE  NT  9(2H**>/)>  RDG 

320  FORMAT (F12. 4, 3X3 A6 , 2X1 1 A4)  RCG 

321  F0RMAT(t>X65(lH*> /20X27HFOLLCNING  CAROS  FOR  RESTART  )  P0G 

322  FORMAT (5X65(1H*) /10X27HFOLLCHIXG  -NTH  SPECIES  0ATA/5X65(1H*> )  ROG 

323  F0RMAT(5X65(1H*) /30X17HENO  RESTART  CARDS)  PDG 

324  FORMAT  (5X65  (1H*.‘ 730X21 HFOLLOHING  SPECIE  D ATA/5X65  (1H*  ) /E12 . 4 , 3X3 ARDG 

16, 2X11 A4)  ROG 

325  FORMAT ( 3El 0. 3, 5X , 15 , 22 X , 3A 6 )  ENTR-MOO 

481  FORMAT (//38X43HELEMENTAL  MASS  TRANSPORT  DRIVING  P0TENTIALS//19X  7HRDG 

1  ELEMENT  5X8MZKETILDA8X8HZKHTILOA7X10HOIFFERENCE5X1JHMOLE-ZKETIL5X1RDI. 


21HM0LE-ZKHTIL  5 X 10HQ IFFERENCE/ ( 74X15 , 9X2A4 ,6 ( 3X lPE 12.4 ) ) 
402  FORMAT (79XA4, 2 X0PF6. 0, 2X7(2X1PE12.4)) 

483  FORMAT ( 77 1 0X3HAVG3 X4HB ASE  9X3HCME11X3MCHE  9X7HCME7CHE 
1 9X  8HRAT IO-CM  6X8HRATI0-CH  0) 


) 


RDG 

RDG 

RDG 

ROG 
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I  (Supp.) 


2321 

2322 

2323 

2324 

2325 

2326 

2327 
2323 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 
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23HCHL 10X5HQCHEM/16X4HTEMP//)  ROG 

490  FORMAT (1H148X24HUNEQUAL  DIFFUSION  OUTPUT// /I 7X2 OHOIFFUSIVE  HEAT  FLROG 

1UX=1PE12.4,11X9H0ASE  T£HP16 X5HSHBFE16X6HSHDEFE/3 (61 XQPF6.  0 » 14X21 1PRCG 
1E12.4,10X)/  RDG 

2)///2X2<6HSPECIE18X8HENTHAtPY33X)/2(18X3HTe=0PF6.0l6X3HTB=F6.0,6X3RDG 
3HTB=F6«  OylOX)  RDG 

4  //(3X2A4,2X3<  2X1PE12.4) , 1 3X2A4,2X3 (2X1PE12 .4) ) )  RDG 

491  FORMAT  (1H142X33HEQUAL  DIFFUSION  ADDITIONAL  OUTPUT  ///10X6MSPECIE3RDG 

10X8HENTHALPY24X9HW ALL  MASS  8X9HE0GE  MASS/2 7 X3HTB=F6.0»  9X3HTB=F6. 0, RDG 
29X3HTB=F6.0,  8 X8HFR ACT I0N9X8HFR ACTION  RDG 

3  //(11X2A4,5(5X1PE12.4)>)  RDG 

492  FORMAT (//10X9HBASE  TEMP8X9HRH0  UE  CH  ,X8HRATIO-CM10X8HRATIO-CH11X5ROG 

2HCM/CHllX5HQCHEM//<llX0PF6.0,3X5(5XlPel2.4>)>  RDG 

494  FORMAT <  //42X36HGAMMA  PEPENOENT  TRROG 

1 ANSPORT  PROPERTIES//55X  6HG AMMA=F4. 2///48X23HFILM  DRIVING  POTENTIA RDG 
2LS//2X21  6HSPECIE10X6HZIESTR10X6HZIMSTR6X10HDIFFERENCE11X) //(3X2RDG 
3A4,2X3( 2X1PE12 .  4) , 13X2 A4 ,2  X3 ( 2X 1PE12. 4) ) )  RDG 

496  FORMAT (//47X9HBASE  TEMP16X5HSCM0P//3C48X0PF6. 0, 12X1PE12.4/) //3SX9HPDG 


3LEWIS-2/34X6HSM0IF1 

2  6X6HSM0IF2  6X  6HSUMZDF / /32X4 (1PE12.4) 

1  //46X3 6 HELE MENTAL  MASS  TRANSPORT  COEFFICIENT 

249X7HELEMENT 10X14H  RHOE  UE  CM<K)/ 

4  (/  34XI5,9X2A4,1(10X1PE12.4) >> 


// 


RDG 

RDG 

ROG 

RDG 

RDG 

ROG 

ROG 

RDG 

RDG 

ENTR- 

RDG 


497  FORMAT (//(20X2l5,5XlPE12»4) ) 

498  F0RMAT(E12.4,1X3A6,1X4(1PE12.4)/C2X,2A4,5X1PE12.4)> 

499  FORMAT <E12. 4, 3X3 A6,2I5,2<1PE12.4)> 

5 14  FORMAT (E12.4,3X3A6, 2X3I5/I 8 (1PE10. 4) ) ) 

515  FORMAT (8E10.3) 

516  F0RMAT(E12.4,lX3A6,lX4(lPEl2.4)/eX6{lPE12.4)) 

517  FORMAT <//31X2HCM15X3HCHLllX6HCM/CHLllX5HQKALL//19X4(DX  C1PE12»4) )//RDG 

1)  RDG 

518  FORMAT (27X9HBASE  TEMPI 0X5HSCMDP12X5HSHBFE1 1X6HSHD3FE// 130X0 PF 6, 0,3 RDG 

1 (5X1PE12,4))>  RDG 

DATA  GAM <1) ,GAM(2),GAM(3),GAM(4),GAMC5),GAM(6),GAM(7),NGAM/0.0,0.2RDG 
1,0. 4, 0.6, 0.8, 1.0, 1.5,7/  RDG 

DATA  TITL(1),TITL(2),TITL(3)/4HMEAN,4HMASS,4HM0LE  /  RDG 

DATA  IFG/2HFG/, IB0/2HB0/  RDG 

DATA  I BLANK/2H  f 
NUL=  0 

WALLQ=-WALLQ/C3 
VLEX=(PR(1)/SC (1)) **(2./3. ) 

RERAD  =  ( .48  IE*  1 2)  *  <T<m**4.  *  EMIS 
DUMl  =  RHOE (IS) *UE  CIS) /VMUE IIS) 

DUM2  *  RHOVW(IS,IT> /C3 
TIMEO=40S(TIME (ITEM)  ) 

IF (NON)  621,622,611 

621  IF(JTIME)  611,405,405 

622  IF(IDENT-IBLANK)  194,309,194 
194  IF  (IOENT-IFG)  308,  607,308 
611  PUNCH  319 

GO  TO  607 

308  >jUM3sRH0E  (IS)  *UE  (IS)  0 1 1  A 

0UM4*-1./C3  8 1 1 A 

PUNCH  320 , TIMEO, MO , (C8SE(I) ,1*1,11) 

L«0  81 1 A 

PUNCH  310,IOENT,L, I S , I  TEH, R *ONO,CONE , GE < ITEM)  , PTET (ITEM) , S ( I S )  ,  B11A 
1  T I ME ( ITEM)  Pi  1  A 

IF  (IS*ITEH-2>  315,314,315  "US 


MOD 


278 

279 

260 

281 

282 

283 
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2379 

314 

PUNCH  313,  IDENT, (MOA  ( J) ,M0E(J) ,J=i, NSPEC) ,  (ATA(J) ,ATBCJ) , J=1  ,NSP> BllA 

284 

2390 

315 

L=1 

B11A 

285 

2361 

PUNCH  310 , IDEN f , L, IS, ITEM, 0UM2,T(1) ,PE (IS, 1) , BlOW,CH,CF 

Bll  A 

286 

2382 

1  =  2 

B11A 

287 

2383 

PUNCH  310, IOENT, L, IS, ITEM, HALLO, OER (3) , RER AO 

2384 

1  =  3 

B11A 

289 

2385 

PUNCH  310, IDENT ,1, IS, IT EM, DIM4 ,DUM3 ,DUHl,UE(IS),PR(l),SC(l) 

Bll  A 

290 

2386 

1=4 

B11A 

291 

2387 

PUNCH  310, IDENT, L, IS, I TEM,CAPC(1>, SHEAR, DELST, THMOM, SHAPE, THENGY 

B11A 

292 

2388 

IF  (KR (7) )  309,311,309 

B11A 

293 

2389 

311 

L  =  5 

61 1A 

294 

2390 

PUNCH  310, IOENT, L, IS, ITEH, ( VJKM(U) , J=1 ,NSP) 

eiiA 

295 

2391 

L=6 

SI  1A 

296 

2392 

PUNCH  310, IDENT, L, IS, ITEH, (  CM(J), J=1,NSP> 

eiiA 

297 

2393 

L=7 

eiiA 

298 

2394 

PUNCH  310, IOENT, L, IS, ITEH, (THELEMtJ) ,J=1,NSF> 

B11A 

299 

2395 

L  =  8 

Bll  A 

300 

2396 

PUNCH  312* IDE NT, L, IS, ITEH, ( FR  ( J,  1> , J=1 ,NSPEC) 

B11A 

301 

2397 

L  =  9 

81 1 A 

302 

2398 

PUNCH  312, IDENT, L, IS, ITEH, <FR ( J, NETA> , J=1 , NSPEC) 

B11A 

303 

2399 

IF (IOENT-IBO)  606,607,606 

2400 

606 

IF  (IDENT-IFG)  608,607,  608 

2401 

607 

IF  (IOISC  CIS) )  608,608,  609 

2402 

609 

PUNCH  320, TIMED, MO, (CASE ( I ) ,1=1,11) 

2403 

PUNCH  514,TIME0,rtD,NSP,NSPEC,NETA,(Y(I),I=i,NETA> 

24  04 

PUNCH  316,TIME0,HD, (MCA(K) , MOB U> ,K=1, NSP) 

2405 

PUNCH  321 

2406 

ALSQ=ALPH*ALPH 

2407 

DER<1)=F(3,1>/ALSQ 

2408 

PUNCH  325,ALPH,F(1,1),OER(1),IS,MO 

2409 

DO  603  J= 1,NET A 

2410 

603 

DER(J) *F(2, J) 7 ALPH 

2411 

PUNCH  515,(DER(J),J*1,NETA) 

2412 

DO  601  K=NUL,NSPM1 

2413 

DER  (1>  =SP (2,1,  tO  /ALPH 

24  14 

601 

PUNCH  5 15  ,OER< 1) ,(SP(1|J,K),J  =  1-NETA) 

2415 

PUNCH  317, (LEF (K)  , K=l, NSP) 

2416 

PUNCH  323 

2417 

608 

IF  (NON)  405,309,  405 

2418 

309 

IF(JSFEC)  624,623,624 

2419 

624 

PUNCH  324 , TIMEO, HO , (CASEII ) ,1=1,11) 

2420 

PUNCH  514, TIMEO, MO, NSP, NSPEC, NETA, (Y  Cl? ,1*1, NET A) 

2421 

DO  602  J=l, NSPEC 

2422 

PUNCH  318, TIMEO, HO, MCA  (J)  ,HCB(w'» 

2423 

602 

PUNCH  515,  (FR ( J, I ) , 1=1 , NETA) 

2424 

623 

GO  TO  (405,4O4,4(J4,4Q4)  ,KAUXO 

2425 

404 

THC»l>*Tfl>  /  1.8 

2426 

THC(3»=T(NETA)  /  J..8 

2427 

TWC (2) = (THC(l) +TWC (3) ) /2.0 

2429 

SOP(l  )=0. 

2429 

SOP  (2  )=0. 

24  3  0 

SOPU  5=0. 

2431 

SUHE=0. 

2  4  3  / 

sunw=n. 

24  •  3 

SUMZIE=0. 0 

24  34 

SUH2IM=  0.0 

2435 

00  1001  L  T*  1 , 3 

2*36 

T9  =  TWO (LT5-3000.  0 
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2437 

TCCMTWCCLT)  *300  0.  0)  72.0 

2438 

TO  *  TWCCLT)*  3000.0 

2439 

SHWFE  UT>»  0.0 

2440 

SHMFPILT)»0.0 

2441 

00  400  I“1,NSPEC 

2442 

XFCIFCd))  419,418,419 

2443 

419 

IF (XABS  (IFC (I) )  -  3)  420,418,420 

2444 

420 

ZIWCI) *0. 0 

2445 

?IE<I)*0.fl 

2446 

GO  TO  400 

2447 

418 

VKIECI)  =  WTMCX)  *  FRCI,NETA)/VMWCNETA) 

2  448 

VKIWCI )  *  WTM{  I)  *  FRCI,l)/VHWCl> 

2449 

IF (TUI 1 , 1) -TWC (LT) )  401, 402, *02 

2450 

401 

KT =2 

2451 

GO  TO  403 

2452 

402 

KT*1 

2453 

4  0  3 

HIW(I,LT)= (R8 (I , KT ) 4TB* CRC ( I, KT) *RD d , K1 ) * TCC4RE (I , KT 

2454 

D/TO)  )  *  1. 8/MTH ( I) 

2455 

SDPCLT)  =  SDP(LT)  ♦  CVKIECD-VKIHCin  *  HIWCI.LT) 

2456 

SHWFP(LT)aSHWFP<LT)4VKIH(I)*(HIH(I,l)-HlW(I»LT)) 

2457 

SHWFF.  (LD  =  SHWFE<LT>  ♦  HIM  (I,LT)  *  VKIECI) 

2458 

GO  TJ  <400,406,406,400) ,KAUX0 

2459 

406 

ZIE<I)=VKIE(I>  *VHW (NET  A)  /FF  CD 

2460 

SUMZIE=SUMZIE  ♦  ZIECI) 

2461 

ZIWCI)  =  VKIK C I) *VHW (1 ) /FF  ( I) 

2462 

5UMZIM  a  SUHZIW  ♦  ZIH( I) 

2463 

400 

CONTI  CUE 

2464 

100'- 

CONTI  KJE 

2465 

IF  <KA  UXO-4)  408,417,405 

2466 

417 

CHLSCH  (NSP) /VLEX 

2467 

DO  1417  LT=l,3 

2468 

QCHEH(LT)=WALLQ-CH (NSP) •SOP(LT)-CHL*CG Cl, NETA) -SHWFE CLT)-SHWFP(LT) 

2469 

1) 

2470 

CHACLT)  s  (WALLQ-CHCNSP)  *  SOP  (LT)  )  /  <  v.  <1 ,  NE  TA ) -SHWFE  <L  T) -SHWF  F  (L  T) 

2471 

D 

2472 

RflTlCLT)=SOP(LT) /MALLQ’CHCNSP) 

247  3 

RAT2CLf)a(G(l, NET A) -SHHFE  CL T) -SHWFPCLT) )/WALLQ*CHA(LT) 

2474 

141 7 

RAT3(LT)=CM (NSP) /CHA (L  T) 

2475 

WRITE  (K0UT,491) (TWO (L T) ,L T* 1, 3> ,  CHOA  (I ) , MCB  (I)  , (HIWC I ,L T) , L T»l  ,  3 

2476 

1) ,VKIWCI),VKIE  Cl),  I=1,NSPEC) 

2477 

CHCHL SCN (NSP) /CHL 

2478 

WRITE CKOUT ,517 )  CH (NSP) ,CHL ,CHCHL ,  MALIC 

2479 

WRITE CKOUT, 5 18) (T WC <L T) ,S OP CLT) , SMWFE (LT) ,SMWFPCLT) ,LT*l, 3> 

2480 

WRITE  CKOUT, 492)  (TWC  (L T) , C HA (IT) ,RAT1 CIT) , RAT2 CLT) , RAT3 (L  T ) ,CCHEN< 

2481 

1LT) ,LT=1,3) 

2402 

GO  TO  405 

2483 

408 

00  409  I-*t,NSPEC 

2484 

ZIECI)  *  ZIECI)  /  SUNZIE 

2485 

ZIWCI)  a  ZIWCI) /SUMZIW 

2486 

SUH€*SUHE4ZIEU> 

2487 

4  09 

SUNW*SUNW4ZIW(I) 

2488 

PUNCH  320,TIMEO,HO, (CASF Cl ) ,1* 1, 11) 

2489 

PUNCH  4 99, TIME 0, HO, NGAW, NS P, PE (IS, IT) , H (NET  1) 

2490 

WRITE CKOUT, 490>  WALLQ, (TWC (LT) , SMWFE CL T) , SHW FP CL T) ,L T« 1 , 3 ) , (TWCCUT 

2491 

1) ,LT*1,3>, (TWC CLT) ,LT«1,3) , CHOA (I )  , HOB C I) , 

2492 

2CHIWCI,LT),LT»1,3) ,I«1,HSPCC) 

2493 

I SP* I Z ♦ t 

2494 

CO  410  L*  1,NGAH 

115 


. .  —  -  f  . . . 

AFWL-TP-69-114,  Vol  I  (Supp.) 

!  . 

2495 

SUM£=0. 

• 

2496 

SUMH=0. 

2497 

SUM2IE=  0. 0 

2498 

SUHZIWsO.O 

2499 

8ETS*  1-GAMO.) 

2500 

00  411  I=1,NSPEC 

2501 

2IESTR  { I)  =ZIE  C I  >  ”  GAM  CL )  *  VKIE(I)  ••  BETS 

2502 

ZIWSTR(I)aZlM(I)  **  GAM (L)  *  VKIW(I)  **  BETS 

2503 

SUHZIE»SUKZlE4ZIESTRm 

2504 

411  SUMZIHaSUMZlH  ♦  ZIWSTR(I) 

1  ■ 

2505 

SOPTI  1(1)  a  0.0 

2506 

SCPTI  1(2)  =  0. 0 

i 

2507 

SOPTI  1(3)  =>  0.0 

s 

2508 

CMKA=0. 0 

:  j 

2509 

CMK8=  0.0 

j 

2510 

SUMELT  a  0.0 

i 

f  2511 

SUMSOF  a  o. 0 

I 

2512 

00  414  I=1,NSPEC 

1  : 

2513 

ZIESTR ( I)  a  ZIESTR(I)/SUMZIE 

i 

2514 

ZIWSTR (I)aZIWSTR(I)  /  SUNZIW 

1  : 

2515 

2ISOIF(I)aZlESTR(I)-ZlHSTR(I) 

! 

2516 

$UMSOF  =  SUHSDF*Z ISO  IF  <1 > 

2517 

DO  414  LT=1,3 

: 

2518 

414  SDPTIL(LT)  a  SOPTILU.T)  ♦  (ZIESTR(I)-ZIWSTR  (I) )  *  HlW(I,t_T: 

2519 

SMDIF 1=0.0 

1 

2520 

SMOIF2=0.0 

1 

2521 

00  413  KK=1,NSP 

I 

2522 

IF  (LEF(KK)-Q)  416,'sl6,4l5 

1 

2523 

416  CMK(KK)=0.0 

2524 

GO  TO  413 

l 

2525 

415  ZKESRT (KK)=0.  0 

2526 

ZKWSRT (KK) =0. 0 

1 

2527 

ZKESTT (KK)afl.O 

1 

i  2528 

;kwstt<kk)=o. o 

i 

2529 

DO  421  1=1, NSP 

i 

2530 

&ETS*CIJ(KK,I)/WTN(I)’NAT(KK) 

2531 

ZKESRT (KK) =ZKESRT( KK) ♦ BETS ’ZIESTR ( I) 

l 

2532 

421  ZKWSRT (KK ) =ZKWSRT( KK) ♦ BETS ’  ZIWSTR(I) 

2533 

00  412  I=ISP, NSPEC 

2534 

00  412  Kst.NSP 

2535 

0ETS=VNU<I,K)*CI J(KK,K)/WTW(I)’WAT(KK) 

2536 

ZKESRT(KK)  =  ZKtSRTUK)  BETS  *  ZIESTR(I) 

2537 

412  ZKWSRT (KK)=ZKWSRT(KKI  ♦  BE TS’Z IWSTR ( I ) 

2538 

Z KOIF ( KK) a ZKESRT (KK) -ZKWSRT (KK) 

2539 

SHQIF l=SHOIFl*f 8S (ZKESRT (KK) -ZKWSRT (KK) ) 

2540 

ZKESTT  (K<)=ZKFSRT(«)/WAT  (  **)  •  VMMNET  A  ) 

2  54  1 

ZKWSTT  4‘KK)»ZKWSRT(KK)/WAT(KK)  ’VMM1) 

. 

2542 

ZKTOIF(KK)aZKESTf ! KK) - ZKWS T 7 ( KK) 

2543 

S4  0IF2*  SWQ IF2*A9S(ZKESTT(KKI-ZKW5TT (KK) ) 

2544 

CM<(KK»»VJKW(KK) /(ZKESRT (KK)- ZKWSRT (KK) > 

1 

2545 

CMKA*CHKA*CMK(K<) 

t 

2546 

SUW€LT*SUWELT  ♦  1.0 

\ 

2547 

413  CONTINUE 

2548 

WRITE (KOCT, 494  )  GJM(l) ,  (  CCA  (I)  ,*OB( I) ,ZI€STR(I) ,ZIWSTR{ I) ,2IS0IF 

2549 

1(I),I*1,NSP£C) 

4 

2550 

WRIT? (KCUT, 481)  (K, AT* (K) P  ATB(K) ,3KESRT(K) , ZKWSRT (K) ,ZKOIF (K) , ZKES 

255  1 

ITT  <K)  , ZKWSTT (K!  , ?K T nip (*)  1 ,NSP) 

2  5  52 

WRITE ( <ruT,496)  ( TWC (LT) ,S0PTH  (IT) ,LT= 1,3) .VIE*, SHOIFl , SKOIF? , SUNS 
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2553 

255** 

2555 

2556 
255/ 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

2567 

2568 

2569 

2570 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

2579 

2580 

2581 

2582 

2583 

2584 

2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 
’6  00 
2601 
2602 
26  03 

2604 

2605 

2606 
2607 
26  08 
2604 
2618 


10F, <K, ATA  <K) , ATB(K) ,CHK(K> ,K*1,N$P) 

WRITE ( KOUT ,463) 

00  680  LI* 1* 3 
CME<LL)»0.0 

GO  TO  <643,  645, 646), LL 

643  CHE(LL)*CHKA/SUNELT 
GO  TO  647 

645  00  667  K*1,NSP 

IF (LEF <  K) )  667,667,666 
6S6  CHE(LL)*CNE(LLDABS(VJKH(K>  ) 

667  CONTINUE 

CUE (LLI aCHE(LL) /SHOIFl 
CJ  TO  647 

646  00  668  K*1,NSP 

IF  (LEF ( <) )  668,666,665 

665  CHE (LL  )*CHMK  )•  ABB (2KE STT <K) -2KWST T <K> )  ♦CHE ILL) 

668  CONTINUE 
CHE(LL)*CNE(lL>  7SH0IF2 

647  CHL*CHE (LLl/VLEX 
00  1009  LT*1,3 

QCHEH(LL)=NALLQ-CME<LL)*SOPTIL<LT)  -CHIMG<1,NETA)-SHWFE (LT)-SHWF 
1P(LT) ) 

CHE (LL) * (WALLQ-CHE  <LL )  •  SOPTIL <LT> > / (C ( 1 , Nf T A ) -SHHFEl  IT > -SHWFP UT 
1)> 

RAT1(LL>*  SOPriL(LT)/WALLQ*CHE<LL) 

RAT2(LL)»  (G(l,NETA)  -SHWFE <LT) -SHWFP <LT) ) /WALLQ*CHE (LL) 
RAT3(LL)*CME(LL)/CHE(LL) 

WRITE  (KOUT, 482) TITL (LL) , TWC(LT) ,  CHE (LL) , CHE  ILL) ,R AT3 (LL ) , 
lRATl(LL)  ,BAT2(LL),CHL,QCHEH(U) 

IF  < IOENT-IBLA  NX)  1410,1009,1410 

1410  PUNCH  516,TIHE0,H0,PE(IS, IT ) , H (NETA ) , GAHCl ) , CHE (LU , CHE (1 L) ,R«TJ(L 
ID  .RATiai),RAT2(LL)  ,CHL,OCMEW(LU 

1009  CONTINUE 
680  CONTINUE 

IF  (IOENT-IBLANk;  14il,410, 1411 

1411  PUNCH  498,TINEO,NO,PE(IS,IT),H(NCTA) ,GAN(L),CHE(1> ,(ATA(K)  .  A  T  0  ( K ) , 
1CHK(K) ,K=1  ,NSPI 

410  CONTINUE 

405  WALLG=-WALLQ*C3 


RETURN 

8 1 1 A 

3  06 

ENO 

61 1 A 

307 

C8128 

8120 

■  et 

SUBROUTINE  IHOKF 

0120 

00? 

COHHON/COECON/  Cf ,C6,C7 ,CI ,C9 ,Cl 0, C 1 1 ,C 12 , 51 3 , C 14 ,C 15 01 28  3 

l,Cl6,Cir,C19,C19,C23,C21,C22'C23,C24,C25,C2t,C27,C2S,C;?,C30,(.jA,:B:?'1  6 

232,C33,C34,C35,C36,C37,C3«,C39,C4e,C41,C42,C4  3,C44,C45  ,C4  6  ,  C4’  ,  CM  01 20  ■: 

3 , C49,C50,C51 , C92,C53*C54, C55,C56,C97 ,C59,C59,C60,C61 ,C62,  C63 , C44 ,C 8120  6 

4  65,C66,C67,C68,;69,C70,C/1 , C 72 , C7 J,  074 , C75 , C76 ,C 77 ,C78 , C7 9 ,C8 I ,C8 1 0 J20  7 


5,CS2,C8J,C84,C05,C86,C87,C8I  0128  A 

COUPON  7  COE  CON/  CKK  l),CK2<  0),CK3(  0),CK4(  8),CX5(  8»,C«C6(  8)  9128  4 

l.CK?(  8»,C«f8(  S)  ,CK9(  8>,C*10(  S),CX11(  8),CK12<  9>,C«C1J(  8)  8128 

2 » w<  14 1  8>,C<15(  8),CAl6t  2),C*l7(  »>,C*18(  »>,C<i9(  »),C<23(  8)  0120  It 

3, CK?i<  8),CX22(  8) i CKK 1 (  8,  8),C«K2(  8,  8)  ,  IN  (5)  ,*C<5) , *SP(5,  4)  9128  12 

4 , CKK3 (  I,  8)  0128  1) 

COHNON/FR»CON/rLE<  43)  ,CLE  (36)  ,SPLE(30,  I > , El  A  (313) ,FL€N, GLEN  8120  14 

1  *  SPLEN  (  8),CLN(14)  ,eLNN,IFL8,ICLN,ISPLN(  I  >  , NELN ,  RNH,  DPI  I  43 >  8^3  t«: 

2,OGL(38) .OSHl (30,  6) ,FNIE ( I  8) ,GWLE(15> , SPWIF ( 15 ,  *>,EHl<153)  6120  16 

3,FW.EN,CNLEN,SPNLCN(  »),  ENLNN,ir*a9,IGNl«*,IS<»NlHf  8)  pJ?0 
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2611 

2612 

2613 

2614 

2615 

2616 
2617 
2613 

2619 

2620 
2621 
2622 

2623 

2624 

2625 

2626 

2627 

2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2638 

2639 

2640 
26*.! 

2642 

2643 

2644 

2645 
26  46 

2647 

2648 

2649 
265: 

2651 

2652 

2653 
.'654 

2655 

2656 

2657 

2658 

2659 
2MJ 
2661 
26  62 
26  6  3 
2664 
2466 
2456 
266  7 
746« 


4,NENLM,INLMMtDFNL<l8>,0GNL(l5),0SPNL(l5,  8>,ORNIC10>  B128  18 

COMMON/ET  ACOM/ET  A  (15)»QET* (15) ,  OSQ6 14) ,00614) ,81 ( 14) ,  BZ6 14)  8128  19 

1 »L AR( 153) r BA 1(43*181 , BA2  <  3  0  > 15)  8128  20 

COMMON/HISCOM/Ci ,C2,C3,C4, ALPH0,iETA,ZM(4, 14) , ZG 64, 14)  ,  ZSP (4 , 14,  88120  21 

1  ),XI640)*HF  6l5,5> ,MG6 15, 3) ,MSP6l5,3,  8) ,HAlPH,HUE,MHUE, MFD, 01X2  6128  22 

2,C3M(40) *  SET AH  640)  9128  23 

COMMON/  IMTCOH/  KR6  Zfl)  ,  Xl.6 ,  XOUT  ,M»TtI,  MAT2I  .PATl  J,MAT2J  ,NE  T  A  ,  1 ,  !S,NB128  24 

1 Sy IT,NTIM£ ,N$P ,NSPM1 ,NAM,NIEQ,NNLEQ,NRML ,  ITS ,  KAPPA,  C8AR, CASE  < 15)  8129  25 

2ta68),  MHE, NON, KQ610) .ITEM, NITEM, KRl7 , K0T,N0T2, IOENT , KR9 (40)  8128  26 

3  ,  KAUXO,  JUNE,  JSP£C,  M06  3)  8128  27 

COMMON/NONCOM/AM6153,153) , O VNL 6 153) , TCW,  B128  28 

1VLNKM,0LPH(  9>,DLPK(  8,  9) , DTMW , OTKH 6  8J,FLLXJB(  9)  B123  29 

COMMON/PRPCOM/PR (15) ,T  615)  ,RM0 6 15) ,SC 6 15) , CAPC 615) ,0R( 15) ,M(15>  8128  30 

1 ,  CP8AR  6  15) ,  VMM  6  15)  ,  PM  1X615,  8)  ,QRHOM,  ORHOK  6  S),2M  8),OZKH6  6),  98128  31 

2MU3K6  8) ,0MU4K (  8),OTK6  8),0PHlKn(  *),CPRK(  8),OSCK6  8),DCAPCK(  8)8128  32 

3,0HTILK(  8 )  i  OQRK  <  8,',0CP8<(  8>,OCPT*6  8),0HUI2K(  S),0ZX<(  8,  8)  B123  33 

4 ,  OPHI KK  (  8,  8),  0M'j4H,CMU3M,  0HTILH,VMU12,CT,CTR,CPTIL,MTIL  6128  34 

5  ,  VMU3  ,OTH  ,OCAPCN,0PRM,  OS'OM  ,  GORH ,0CP8H,0CPTM,0MU12H, VMU6 15) ,  SHOP  6128  35 

6  C 1 5 ) ,PHIKP(15) ,MP, T?,ZXP(  8) , VHU3P, VHU4P , HTILP, CRHO ( 14) , GHR ( 1 5 )  3128  36 

COHMON/VARCON/F64,  15)  ,  G63,  1.5),SP<3,  15,  9),ALPM  6128  37 

C  EVALUATE  GROUPINGS  WHICH  CONTRIBUTE  TO  (I-i>  PORTION  OF  COEFFS  8128  041 

C  VARIABLES  KITH  OIMENSION  (META-1)  8128  042 

4000  CRHO(I-l) »C26*DETA ( 1-1 ) • ( 1  .-C53/ 6 . 0 *D£T A ( 1-1) >  B128  044 

C6J»C6*CRH0(I- 1 )  8129  045 

IF  (1-2)  4001,4002,4001  B12B  052 

4002  XN(5)=d.  8128  053 

XG(5)»0.  B128  054 

IF  (NSPMl )  401,401,4003  0123  055 

4003  00  4034  K=l, NSPMl  8128  056 

4004  XSP<5,XI=0.  B12B  05? 

4001  CONTINUE 

C  EVALUATE  XM.xG.ANO  XSP  (WHICH  CONTRIBUTE  TC  ERRORS  ANO  TO  COEFFS  ei28  065 

C  AT  (I)  ANO  AT  (I-l)»  8128  066 

401  CALL  TATIOR  ( OE T A (  I- 1)  ,  F < 2  ,  I-  1) , F < 2 , 1 > , XM)  8128  067 

CALL  TAYLOR  (OE  T  A  6  1-1 )  ,C-6  1  ,  l  - 1)  ,G  (1,  I )  ,XG)  P128  06* 

IF (NSPMl) 403-403,4 04  3128  069 

404  00  414  1  ,N jPM i  8128  070 

414  CALL  TAYLOR  ( 0 E T A ( I- 1 ) , SP ( 1 , 1 - 1 , K) , S° ( 1 , I , K ) , XSP 6 1 , K> )  6128  371 

C  EVAL  PORTION  OF  ML  £  OE  P£NO  ENT  CN  XM,,..  ANC  GROUPINGS  EVAL  AT  I-  1  8(29  0  72 

433  C72=F <2,I)*XM( 1)  *F63, I) *XMI2>  * F  (4,  I  )• XM ( 3)  *F64,I-1)*XM(4)  0123  373 

XM  (5) s  XM (5  I *C72  612B  3  74 

ENL(T*3l*-(-C33*C63/2.-C9*C72-2.*(F(2,  I)  *ZM  ( 1 , 1-1)  *F  <3  ,  I)  •  ZM6  2 
1,I-1)6F(4,I)*ZH(3,I-1)*F<4,I-1)»ZM<4,I-:)))  0128  976 

OUM;  =  6  (2,I)*XG(1)«F  (3, 1)*<G  (2) *F (4,1) *XG(3)*F  (4,I-!)*XG64)  3(28  077 

XG  (5>*XGm*eUHi  6129  07* 

NPI *MAT 1J* I 

ENL (MPI)*- (-C84*C2*0UM1-(F  (2, I  >*2661  , I-l>*F  (3, I) *26(2,1-1) *F (4,1 )• 

1 ZG  C  612*  083 

23,  I-1)AF  (4,1-1  )»ZG  (4,1-1)  )  -(G6  1,1)  *ZMC  1,1-1)  *6(2,1)  *2*662,  I -1)*C  (3,  8X2B  381 
3D*  7N(3*I-t>'6(3,I-l)*7N  64,1-1)))  6(20  35? 

IF ( NS pM 15 435, 485, 4 06  P123  QJ« 

406  CO  407  K*l, NSPMl 
HPI*MPI *MAT? J 

3UM1  =  F  (2, t)*XSP (t,K)*F (3,1 ) •* SP 6 2,K)*F 64, I)« XSP( 3,X)*F  <4,  I - J » *  XSPP*?»  9»* 

1  (4,1)  ?12B  0(8 

iSPt<=,K)  =  XSP(5,<)*3UMl  8(2*  CfT 

ENL (MPI >*- (-CK 2 ; (X)  *C2  •SU’D  -  (F  12,1)  *ZSP ( 1 , I- 1 , *) *F » 

2  3, I)*iSPC?,!-l , <I*F (4, I)*2SP(3,I-1,KJ  *F(%, I-i)*ZSP(4,*-i,M) )-(SPtl6i?9  39 1 


6128  066 
8128  367 
P128  06* 
3128  069 
8128  070 
ei28  071 
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2669 

2670 

2671 
2  67? 
2673 
2 676 

2675 

2676 

2677 
2(70 
2675 
2660 
2661 
2662 
2685 
2664. 

2665 

2666 

2667 

2668 

2689 

2690 

2691 

2692 

2693 

2694 

2695 

2696 


2697 

2698 

430 

2699 

2700 

435 

2701 

2702 

448 

2703 

2704 

445 

2705 

450 

2786 

c*  • 

2707 

2788 

2709 

c*  « 

2716 

c«  * 

2711 

2712 

c-  - 

VlJ 

455 

2714 

27  15 

27U 

2717 

27l» 

7719 

2720 

i 

2721 

C-  - 

2722 

46;  \ 

2  '21 

2724 

2725 

i 

27?* 

f 

607  CONTINUE  8128  093 

c—  - . . . .  M 

605  NUL*0 
I7N»I“2 
IFP»I*2 
IFPP*heTA*I«3 
2FPPP»IFPP*NETA 
I$PN*I 
ISFPal-l 

ISFW*-IFFF»2 

C-**  HOHENT UN  EQUATION  CONNECTION  COEFFICIENTS 
AH (1*3 , ll=-C81+C87*0FTA(I-l) 

AH(I*3,IFN}«-c7(,4Cg6*0|TA(  j.jj 

IF  (1-2 )  610,910,415 
610  AH (1*3, 2I*-C7j 
AH(I»3,3J*-C12 
GO  TO  420 

615  CALL  LIA0(«i,I*3,if n,-G7J) 

C*Lt-  GIAO(-J,I»3,IpPN,«ci2) 

620  CALt  LIA0C-1,I*3,  IMAP,.;  »{ra  •  iKtauTiiik  t 

LFI-ISFN4HAT1J  M  *«U»*2IM4f  X-lll  > 

DO  450  A=NUL,  NSFHi 
IFU)  625,425,430 
425  0UK1*C00*CCTAU-1»-C?5 
OUH2=o. 

CO  TO  435 

630  0UHl-CK13ir)*0ETA<I-l) -CK17IIO 
OUH2*  6  • 

635  AH<I»3,lPI)=0UHi 

I^(I-2)  658,440,445 
448  AH  <1*3  ,LPI-1)  *  QLIM? 

GO  TO  450 

445  CALL  L  I  AO  OC,  1*3,  ISPP,  OUHj) 

650  L?I*LFI*HAT2J 

fHE*GT  a  NO  SPECIES  EQUATIONS 
hpj»natu*i 

OO  535  K*NUl,  NSPH1 

: : ” ow- ” 

'  ~  ENfNCY  EQUATIONS 
455  0UH1=-C*2 
0U*2*-C?6 
0UN3—C77 
CUN4*-C70 
0UH4*;82 
0J«7= C77 
0UH8«C 70 
GO  TO  465 

-  SPECIES  EQUATIONS 
46;  SU*»is- (CK?1(N>  *2,*C56  *CAl5TXn 
CUNia-OAlS  »Ki 
:u«3*'CAi*nf)*c<i5  <K> 
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2727 

0UM7=CK19(K) 

2728 

0UM8-CK20 (K) 

2729 

465 

0UM5=C2  *XSPI4,K)-ZSP»4,I-1,K> 

2730 

AMiMPJ,l)=OUMl 

2731 

AM(MPJ,IFP>=  GUM3 

2732 

IF  <I-2»  470,47  0, 472 

2733 

470 

AM  (MPJ,2J  =  0l!M2 

2734 

AM<HPJ,3>  =  DUM4 

2735 

AM  (MPJ-1,1' -  DUM6 

2736 

AM  (MPJ- 1  «  IFP) *  0UM7 

2737 

AM(MPj-i,3>=  OUM8 

2738 

GO  TO  475 

2739 

472 

CALL  LIAO (-1, MPJ, IFN»DUM2) 

2740 

CALL  LIAD(-1,  MPJ,  7FPP,  OUM4) 

2741 

475 

CALL  LIAO,' -1, MPJ,  IF^PP,  0UM5I 

2742 

LPI=  ISPN+  1AT1J 

2743 

DO  530  KK=NUL,  NSPM1 

2744 

C 

*  * 

DUM1/OUN4  AND  0UM2/DUM5  ARE  ERROR/FLUX  DERIVATIVES  MRT 

2745 

c 

*  * 

GP  OR  SPP,  RZSP. 

2746 

IF  (  K*  KK)  4"  ,^80,485 

2747 

c 

-  - 

ENERGY  EQ.  C  VARIABLES 

2748 

480 

DUM2=-C80 

2749 

DUM4=C43 

2750 

DUM5=C80 

2751 

GO  TO  515 

2752 

485 

IF (K)  490,490,495 

2753 

c 

-  - 

ENERGY  EQUATION,  SP  VARIABLES 

2754 

490 

OUMl=-C<l<KK> 

2755 

DUH2--CK2(KK) 

2756 

CUM4=-0UM1 

2757 

DUM5=-0UM2 

2758 

GO  TO  508 

2759 

495 

IF(KK)  500,500,505 

2760 

c 

-  - 

SPECIES  EQS. ,  G  VARIABLES 

2761 

500 

0UM1=-CK9(K) 

2762 

OUM2=-CK3CK)  ♦  CK14CK) 

2763 

DUM4=CK9(K> 

2764 

DUM5=CK5 (K) 

2765 

GO  TO  508 

2766 

c 

-  - 

SPECIES  EQS.,  SP  VARIABLES 

2767 

505 

DUM1=-CKK2(K,KK) 

2768 

DUM2=-CKK1  <K,KK)m  <I-1)*CKK3  <K,  KK) 

2769 

DUM4=-OUHl 

2770 

DUM5=C  KK1  (K,  .<K) 

2771 

IF(K-KK)  508,515,508 

2772 

515 

DUM1=  -DUM4-C14 

2773 

508 

AM(MPJ,LPI)=DUM1 

2774 

IF  ( 1-2)  510,510,525 

2775 

510 

AM  CMP J,  LPI-1) =  0UM2 

2776 

520 

AMIMPJ-l,  LPI)  =0UM4 

2777 

AM  ( HP J-l, LPI-1 ) =DUM5 

2778 

GO  TO  530 

2779 

525 

CALL  L  I AD  t KK, MPJ ,  ISPP,  DUM2) 

2780 

530 

LPI=LPI+MAT2J 

2781 

CALL  LIAD'K.MPJ,  ISPPP,C2  '  YMC4>-ZH(4, 1-1) > 

2782 

535 

MPJ=MP  J->M  AT2J 

2783 

RETURN 

2784 

END 
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2785 

278 6 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 
2605 
2806 

2807 

2808 

2809 

2810 
2811 
2812 

2813 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2821 
2822 

2823 

2824 
2625 
28  26 

2827 

2828 

2829 

2830 

2831 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 

2842 


B13B 
B13B 
B13B 
.C15B13B 
'1,C3138 
348B13B 
'  ,cei3B 


,CKl9t  8)  ,  CK20  < 

-  - - -  .J|UIV(CI  01  f  UMU1  Of  Of  <  Of  O  l  ,  Arl  15  )  ,  XG  15)  ,  XS  P  1 5  ,  9) 

4»CKK3 (  &,  8) 

C0MM0N/ERRC0M/FLE(  43)  »GLE  (30)  ,SPLE(oO,  8)  ,ELA  (313) ,FLEM,GLEM 
1 , SPLEM (  8) ,ELM(14) ,ELNM, IFLP, IGLM,ISPLH(  8) ,NEIM,IIMM,DFL (43) 

2f DGL(3  0)  ,  DSPL  (30 »  8) , FNLE (18)  »GHLE(15)  ,SPNLE (15,  8),ENU153) 
3»FNLEM,  GNLEM, SPNLEH(  8),  ''NLMMflFNLH,  IGNLM,ISPNtM  (  8) 

4,NENLM, INLMM,OFNt(18),OGNL(15) ,0SPNL(15,  6),0RNL(1Q) 
C0MM0N/ETAC0H/ETA(15) ,0£TA (15) ,0SQ(14> ,0CU<14) ,Bl (14),  B2 ( 14) 

1, LAK(153) ,BA1 (43,18) ,BA2(30,15) 

C0MM0N/HISC0M/C1,C2,C3,C4, AtPH0,BETA,ZH(4,14) ,ZG(4,14)  ,ZSP(4, 

1  ) ,XIC40) ,HF(15,5»,HG(15,3J  -  "  “ 

2, C3M(40),8ETAH(40) 


..  *  4-HAT2J 
(PI)  =ENl.(MPI)  -  (CK22  (K) 
(K>>) 


■(PHJK(I,K)*DETA(I~1)-PHIKP(K) *B2 ( I* 


K=l,NSPMi 

)*B2(I-1)*DPHIKH(K) 

) aCl3*C<23 (K) 

)aDETAU-l)*DPHIkH(K> 

>aClQ*CK2S(K) 

ORTION  OF  0RIG  COEFFS 


001 

002 

003 

4 

5 

6 

7 

8 


OF  AM 


B13B 

9 

B13B 

10 

B13B 

11 

B133 

12 

B13B 

13 

B13B 

14 

B13B 

15 

B13B 

If 

B13B 

1? 

B13B 

18 

B13B 

19 

B13B 

20 

8138 

21 

8B13B 

22 

!  B13B 

23 

B13B 

24 

;,NB13B 

25 

!)  B13B 

26 

)i  B13B 

27 

B13B 

28 

B13B 

29 

B13B 

30 

B13B 

31 

DB13& 

32 

8) B13B 

33 

0138 

34 

3133 

35 

iP  B13B 

36 

El  38 

37 

E 133 

038 

B13B 

039 

813B 

041 

B13B 

042 

P13B 

043 

B13B 

051 

B13B 

052 

1) 

B13B 

057 

B13B 

058 

8133 

059 

B13B 

060 

B13B 

061 

0130 

062 
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2843 

C**s» 

ESTABLISH  INDICES  FOR  VARIABLES 

2844 

403 

NUL*C 

2843 

IFN=I- 1 

2846 

IFP=I+3 

2847 

IFPP=NETA+I-2 

2848 

IFPPP=IFPP*N£TA 

2849 

ISPN=I+i 

2850 

ISPP=I 

2851 

ISPPP=IFPP*2 

2852 

DO  405  LaJ.3 

2853 

CYMCU=C2*XH(L»-ZHIL*I-1I 

2854 

405 

CXM  (L  >  -  ~ (C9*XH (L )  ♦  2M <L» I- 1) > *2. 

2855 

MOMENTUM  EQUATION 

2856 

AN<I  +  3,l)=AM{H-3,mC81-C5*C6*C72*C87*0ETAU-l> 

2857 

AM  (1+3, IFP) = AM (1*3 t IFP) ♦C74*C86*DETACI-1)+CXM (1) 

2858 

CALL  LIA0(-1,I+3,IFN|C73) 

2859 

CALL  LIAOC-l,I+3,IFPP,Cl2+CXH{2>> 

2860 

CALL  LI ADC-l ,1*3 ,IFPPP,CXH (3) > 

2861 

LPI=  ISPN+MAriJ 

2862 

DO  425  K=KUL,  NSPM1 

2863 

IF  (K)  410,410,415 

2864 

410 

DUM1=C75+C88*0ETA(I-1) 

2865 

DUM2=0« 

2666 

GO  TO  416 

2867 

415 

DUM1=CK13(K)*0ETA(I-1)+CK17CK> 

2868 

DUM2=0. 

2869 

416 

IFCI-NETA)  420,417,420 

2870 

417 

CALL  LIAOCK, 1*3,1, DUMl) 

2871 

GO  TO  421 

2872 

420 

AM(I+3,LPI)=AMCI+3,LPI)+DUM1 

2873 

421 

CALL  LIAO  <K, 1  +  3, ISPP, DUM2 > 

2874 

425 

LPI=LPI*MAT2J 

2875 

ENERGY  AND  SPECIES  EQUATIONS 

2876 

HP J=MAT 1J+I 

2877 

DO  490  K=NUL,  NSPM1 

2878 

DO  428  L=l,3 

2879 

428 

CYSP(L)=C2*XSP(L,K)-ZSPCL,I-1,K) 

2800 

c 

*  * 

ALF,  F,  FP,  FPP ,  FPPP  ERROR  DERIVITIVES  ARE  DUMl 

2881 

IF  (K)  430,430,435 

2882 

c 

-  - 

ENERGY  EQ. 

2883 

430 

QUMi=*C  82 

2884 

0UM2=C76 

2885 

0UH3=C77*CYSP(1> 

2886 

DUM4=C78+CYSP  C 2) 

2887 

GO  TO  440 

2888 

c 

-  - 

SPECIES  EQS. 

2889 

435 

DUN1=  CK2HK)  +C56  +  (CK26 <  K)-2 ,  *CK24CK>> 

2890 

DUM2=CK18(K) 

2891 

DUM3=C  <19  ( K)  +  3<24(<)-C<26  CO  +  CYSPC  1> 

2892 

0UM4=C  1 0*  (CK5  00+CK23CK))  ♦  CYSPC2) 

2893 

440 

0UH5*  CYSPC3) 

2894 

AM (MPJ , 1) =  AM  CMP J, 1 )  ♦  DUMl 

2895 

AMCMPJ,  IFP) =  AM (MPJ,  IFP)  +  DUM3 

2896 

CALL  LIAOC-1,  MPJ,  IFN,DUN2) 

2897 

CALL  LIA0C-1,  MPJ,  IFPP,  DUM4) 

2898 

CALL  LIADC-1,  MPJ,  IFPPP,  DIIM5) 

2899 

LPI=  ISPN*MAT1J 

2900 

DO  485  KK=NUL, NSPMl 
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2901 

C 

*  *  0UM1  ANO  0UM2  ARE  ERROR  OERIVITIVES  WRT  6  OR  SP  ANO  GP  OR  SPP 

2902 

IF  (K+Kk)  445,445,450 

2905 

C 

-  -  ENERGY  EQ.,  G  VARIABLES 

2904 

445  DUM1=C43 

2905 

OUM2=C80 

2906 

GO  TO  475 

2907 

450  IF  IK)  455,455,460 

2908 

C 

-  -  ENERGY  EQ.,  SP  VARIABLES 

2909 

455  0UM1=CK1 (KK) 

2910 

DUM2=CX2UK> 

2911 

GO  TO  480 

2912 

460  IF(KK)  465,465,470 

2913 

C 

-  -  SPECIES  EOS.,  G  VARIABLES 

2914 

465  DUM1=  CK9(K)-CK25(K> 

2915 

0UM2-CK5 (K) +CK23 (K) 

2916 

GO  TO  480 

2917 

C 

-  -  SPECIES  EQS. ,  SPECIES  VARIABLES 

2918 

470  DUM1=CKK2  (K, K< ) -OPHIKK (K, <K) *DETA (1-1 ) 

2919 

0UM2=CKK1 (K,KK)+82(I-1)  *  OPHIKKCK, KK) 

2920 

IF(K-KK)  480,475,480 

2921 

475  DUMi=OUMl+CYM(l)+C14 

2922 

DUM2-DUM2+CYM(2) 

2923 

480  IF (I-NETA)  483,482,483 

2924 

482  CALL  LIAD(KK,NPJ,1,0UN1} 

2925 

GO  TO  484 

2926 

483  AM (MPJ,LPI)=AM (MPJ,LPI) +DUN1 

2927 

484  CALL  LIAO(KK,MPJ,ISPP,0UN2) 

2928 

485  LPI=  LPI+MAT2J 

2929 

CALL  LIAO(XtMPJ, ISPPP,  CYM<3)) 

2930 

490  MPJaMP J+MAT2J 

2931 

RETURN 

2932 

END 

B13B 

307 

2933 

CB14A 

B14A 

001 

2934 

SUBROUTINE  STATE 

2935 

COMMON/EOGCOM/  PEC40,  l>,PTt'(40,  1),SPE(  8,40,  1),DUES 

,  B14A 

3 

2936 

1UE (40) , RHOE (40)  , VMUE (40) ,TE (40) , UEDUE , DUEDG E , D2UEDG, VHHE, HE, C9  0 

B14A 

4 

2937 

2  ,OSIP (40) ,IOSIP»TTVC, TVCC (40) 

014A 

5 

2938 

COMMON/INTCOM/  KK( 2 0) » KIN, KCUT,MATlI , MAT2I ,MATl J,MAT2J,NET A , I , IS, 

N314A 

6 

2939 

1S,IT,NTIME,NSP,NSPM1,NAM,NLEQ,NNLEQ,NRNL,  ITS, KAPPA, CBAR, CASE C 15) 

B14A 

7 

2940 

2,8(8) ,  MWE,NON,KQ(10) ,ITEM,NITEM,KR17,NBT,NBT2,IDENT,KR9(40) 

B14A 

8 

2941 

3 , KAUXO , JTIME, JSPEC ,M0 ( 3) 

B14  A 

9 

2942 

COMMON/PRMCOM/T IME (  50) ,PRE (40> ,PTET (  50),CE(  50> ,S(40) ,ROKAP(40> 

B14A 

10 

2943 

ljRNOSE, VKAP, NOISC, IOISC140)  ,NSO(10) , MSD (1 0) , ITF  (  50) ,IPRE,RADNO, 

814A 

11 

2944 

2C0NE, RADFL (  50) ,RAOR(40) ,RA0S(40> ,IRAD 

B14A 

12 

2945 

C0MM0N/PRPC0M/PR(15),T(15)  ,RH0U5>  ,SC  (15)  ,CAPC(15>  ,QR(15)  ,H(15) 

B14A 

13 

2946 

1,CPBAR(15),VMH(15) ,PHIK<15,  8) ,ORMOH, DRHOK  (  8), 2 X(  8),0ZKH(  8), 

OB14A 

14 

2947 

2MU3K(  8) ,0MU4< (  8),0TK(  8) ,0PMIKHC  8),OPRK(  8),DSCK(  8),0CAPCK(  8) B14A 

15 

2948 

3 ,OHTILK(  8) ,OQRK(  8),0CPBK(  8) ,OCPTK(  8),0MU12K(  8),DZKK(  8,  8) 

B14A 

16 

2949 

4 , OPHI KK (  8,  8),  0MU4H , CMU3H,DHTILH, VMU12 , CT,C7R,CPTIL»HTIL 

B14A 

17 

2950 

5,VMU3,OTH,DCAPCM,OPRH,OSCH,OORH,DCPBH,DCPTH,OMU12H,VMU(15) ,  RHOP 

B14A 

18 

2951 

6(15),PHIKP(15) ,HP,TP,ZKP(  8), VMU3P, VMU4P, HTILP,CRH0(14) ,GMR(15> 

B14A 

19 

2952 

COMMON/STTCOM/GAM1 , PROUM, PRA, PRB, PRC, PRO, VMUA , VMUB, VMUC,  VHUO ,NC , 

B14A 

20 

2953 

1  FLO (6,3) * VMKO 

B14A 

21 

2954 

VMWE=VMHO 

2955 

KQ(6)*KQ(6)-1 

B14  A 

025 

2956 

KQ(7)=IABS(KR(18)*5)-4 

914A 

026 

2957 

IF  (KQ (5) -1  (00,200,100 

2958 

100  T£(IS)*3000. 
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2959 

WRITE l K0UT,991 ) 

2960 

IHET*50 

2961 

I  JK*3 

2962 

HEsGE(ITEH) 

2963 

110 

HET=FLDCl,IJKH-FLO(2,IJIO  +  ELO(3,IJK)*CTE(IS>-56aO.»*.E*El.D<4,]JK)* 

2964 

1  (TE<I$)**2.-54OO.**2.>-FLO(5,IJiO*Cl./TECIS>-l./540O.> 

2965 

CPT=FL0I3,IJK>+FLD(4,IJK)*TECIS>+FIDC5,IJK>/TECIS>**2. 

2966 

£RC=(H£T-HE  ) /CPT 

29  6T 

ITER*51-IHET 

2968 

ERC*SIGN( AMINl (ASS (ERC>»700.)» ERC) 

2969 

T£<1S)»TEIIS)-ERC 

2970 

IF(T£(ISI.LT.3600.)  GO  TO  120 

2971 

IF(TE(IS).GE.5400.)  GO  TO  125 

2972 

I  JK=2 

2973 

GO  TO  130 

297'» 

120 

I  JK=1 

2975 

GO  TO  130 

2976 

125 

IJK*3 

2977 

130 

CONTINUE 

2973 

IMET=IHET-i 

2979 

IF  (IMET)  400,400,140 

2980 

140 

IF  (ABS(ERC)-wl)150, 150,110 

2981 

150 

SSTAG=FLD(6,IJK)*FLD<3,IJ.O*Al0GITE(IS>/5400.>*Ft0l4,IJK)  •  CT£  CIS)- 

2982 

15400.) -.5*FLO(5,IJK)*( (l./TE (IS) > **2.- (1. /540 0. > **2. > 

2983 

00  155  11*1, NS 

2984 

x»5 

TE  (II ) *TE  C IS) 

2985 

VNACH=0. 

2986 

160 

RHOE(IS)=PE(IS,IT)/TE(IS»*VNNE/0.7303 

2987 

UE<IS)*SQRT((GE(ITEN)-HE  >*50073.) 

2988 

VMUE (IS) = ( VMUA*TE (IS) ** VMUB ) /(VMUC*TE(I5)+VMUD) 

2989 

GAH1=CPT/(CPT-1.9869/VNHE) 

2990 

IF  (KQ(5).EQ.2>  GO  TO  165 

2991 

WRITE (KOUT, 995)  S (IS) ,TE (IS) , CPT, PE ( IS , IT) , RHOE (la) , VMUE CI S) , UE(IS) 

2992 

1,HE,SSTAGA,VMACH 

2993 

GO  TO  166 

2994 

165 

WRITE (KOUT, 993) TEC  IS) , PE (IS ,IT> , UE (IS > , VMACH, GAM1, MET,  SST AG, CPT. 

2995 

1RH0E ( IS) * VMUE (IS) 

2996 

166 

KQ(6)*-1 

2997 

170 

RF^rn 

2998 

200 

SSTAG*SSTAG-OSIPCIS> 

2999 

SSTAGA=SSTAG*1 .98697 VMWE*A LOG ( l./PTET ( ITEM) ) 

3000 

OUM1* SST AG+1. 9869/ VMWE*ALOG (PRECIS)  ) 

3001 

IST*50 

3002 

210 

OS*-OUMl+FLD (6 , I JK) +£60(3, I JK) * ALOG CT£ CIS) /5400. ) +FLOC4, I JK ) * (TE (I 

3003 

1S)-5400.)-.5*FLO(5,IJK)*(( 1 ,/TE C IS) ) ** 2.- ( 1 ./ 540 0. ) **2. > 

3004 

CPT*FLO(3,IJK)^FLO(4,IJK)*TE(IS)+FLO(5,IJK>/TE(IS)**2. 

3005 

ERC*DS*TE(IS)/CPT 

3006 

ITER=51-IST 

3007 

ERC*SIGN(AMIN1 (A8S (ERC) ,700.) , ERC) 

3008 

TE(IS)*TE(IS)-ERC 

3009 

IF(TE(IS).LT.3600.)  GO  TO  212 

3010 

IF(TE(IS).GE. 5400.1  GO  TO  214 

3011 

I  JK*2 

3012 

GO  TO  216 

3013 

212 

I  JK*1 

3014 

GO  TO  216 

3015 

214 

I  JK*3 

3016 

216 

CONTINUE 
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3017 

ISf-IST-1 

3019 

IF  (1ST)  400,400,220 

3019 

220 

IF  UBSIERC)-.  1)230, 230, 210 

3020 

230 

H£*FLO  <1, IJK)*FL0(2, IJK) ♦FLO(3, IJF) *( TE <IS)-5400.) ♦»5*FL0 (4 , 

I JK) •( 

3021 

lTeUS)**2.-5400.**2.)-FLO<5,IJK)Ml./T£(IS)-l./5400.) 

3022 

VKACHsSQRT<2.MGE(XTEM)-H£)»VHNE/GAHl/TE(XS>/1.9869) 

3023 

GO  TO  160 

3024 

300 

IHT=50 

3025 

IF  (IS4ITEH-2)  301,301,302 

3026 

301 

T (13—3000* 

3027 

302 

HT*FLD(l,IJK)*FLO<2,IJKWFL0(3,IJK)*(T(I)-540Q.>*.5*FLD<4,IJK) ^  «T  C 

302S 

lI)**2.-5400.**2.)-FLO(5,IJK>*(l./T(I>-i./54CO.) 

3C29 

CPBAR(I)*FLDC3,IJK)4FLD(4, JJK)*TCI)4FL0(5,IJK)/T(I)**2. 

3030 

ERC*(HT-H(I))/CPBAR(I) 

30  31 

EROSI GN  ( AMIN1  (  A3S  ( ERC )  ,  7 0  0  .  ) ,  ERC) 

3032 

T  (I)=T (I)-ERC 

3033 

IF  (T(I)  .LT.3600.)  GO  TO  305 

3034 

IF(T(I).GE.5400.)  GO  TO  306 

3035 

IJK=2 

3036 

GO  TO  307 

3037 

305 

IJX*1 

3038 

GO  TO  307 

3039 

306 

IJK*3 

3040 

307 

CONTINUE 

3041 

IHT=II-T-1 

3  042 

IFCIHD400, 400,310 

3  043 

310 

IF(ABS (ERC)-.  1)  320,320,302 

3044 

320 

CPTILaCPBAR(I) 

3045 

OTH*l./CPBAR(I) 

3046 

0CPBH=0TH*tFL0(4fIJK)-2.*FL0(5,IJK)/T(I)**3.) 

3047 

OCPTHaOCPBH 

3048 

PR(I>»PR0UM*PRA*T(I)**PRB4PRC*T(I)**PRD 

3049 

OPRH=OTH*(PRA*PRB*T(I)  ** (PR8-1. ) ♦PRC*PRO*T  (I)  •*  (PRO-1. )> 

B14A 

048 

3050 

SC(I)=PR<I) 

B14A 

049 

3051 

DSCH=»DPRH 

B14A 

050 

3052 

RHO(I) aRHOE(IS) /T(I)*TE(IS> 

3053 

ORHOH=-RHO(I) H (I)  *OTH 

B14  A 

052 

3054 

VMU(I>*<VNUA*T<I)**VNUB)/(VFUC*Tm*VHUD> 

3055 

VMH (I) *VNWE 

3056 

CAPC(  I  )  =  <T(I)/TE(IS)>*MVMUB-1.)  /( VNUC*T  (I )  ♦WNUD)  * 

B14A 

053 

3  057 

l(VNUC*TECISHVHUO) 

B14A 

054 

3058 

CCAPCH*CAPC(I)  *OTH* ( <VMUB-1,)/T( J)-VNUC/(VFUC*T  (I)*VMUD) > 

B14A 

055 

3059 

HriU»H<I) 

B14A 

056 

3060 

GNR(I)*CP0AR(I)/(CPBAR(I)-1.9869/VMNE) 

3061 

ohtilh*i. 

3062 

VMU12*VMWE 

B14A 

058 

3063 

0HU12H»0. 

B14A 

059 

3064 

VNU3»1./VHWE 

B14A 

060 

3065 

0NU3H*  0. 

B14A 

061 

3066 

QMU4H»  0 • 

814A 

06? 

3  067 

QR(I>«0. 

914  A 

063 

3068 

OQRH*0. 

B14A 

064 

3  069 

CT=0. 

*»14A 

065 

3070 

CTR*0. 

B14A 

066 

3071 

RETURN 

B14A 

067 

3072 

400 

WRITE (K0UT,99) KQ(5) 

3073 

99 

FORMAT  <//40M«*****  STATE  OOCS  NOT  CONVERSE  FCR  KOC5>*I2,6H  *• 

#**//} 

3074 

991 

FORMAT (1H1,10X19HSTAGNATION  SOLUTION  /12Xl$H£OGE  CONDITIONS 

//) 
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3075 

3076 

3077 

3078 

3079 

3080 

3081 

3082 

3083 

3084 

3085 

3086 

3087 

3088 

3089 

3090 

3091 
3  092 

3093 

3094 

3095 

3096 

3097 

3098 

3099 

3100 

3101 

3102 

3103 

3104 

3105 

3106 

3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 
3ie; 

3122 

3123 

3124 

3125 

3126 

3127 

3128 
J  129 
31  JO 

3131 

3132 


993  FORMAT (5X14HTEMPERATURE  *  E10.4,14H  DEC  R  //5X14HPRESSURE 

1  =  El0.4f14H  ATMOSPHERES  7/5X14H VELOCITY  *  EiO.G.lGH  FT/SEC 

2  //5X14HMACH  NUMBER  *  E10.4.//5X14HCAMMA  *  £«0.4,//5X 

314HENTHALPY  «  E10.4,14H  ETU/Lfi  //* X14HENTR0PY  *  E10. 

44 , 14H  BTU/L3  DEG  R  // 5 X14HCP- FROZEN  a  E10.4,14H  BTU/L8  DEG  R  t 

575X14H0ENSITY  *  E10.4.14H  L8/CU  FT  //5X14HVISC0SITY  * 

6Ei0.4,14M  LB/SEC  FT  » 

995  FORMAT(3X10(2XE10.4)I 
STOP 

ENO  B14A  068 

C81 4B 

SUBROUTINE  STATEN 

COMMON/STTCON/GAN1,PROUN,PRA,PR8,PRC,PRO»VNUA,VMU8,VHUC,VNUD,NC,  B14B  3 
1  FLO C 6, 3) tVMWJ  Bl4B  4 

COMHON/INTCOM/  KR( 20) , KIN, XCUT 

DIMENSION  TK<20»2) » VMM (20) ,EF(6,20,3> , ETMIN (20 ,3) , ETMAX (2 0 , 3> , 

1PVMW( 20) ,PVOL(20),BTA(20l,8TB(20l,8TC(20> ,8TD <20» »8TE(20> 

8000  READ  (KIN, 5)  PROUM, PRA  ,PRB  ,PRC ,PRO 
READ  (KIN,6) VHUA.VMUB, VMUC, VMUO 
REAO  (KIN, 2)  NC 
2  FORMAT (13) 

OO  8105  JJ*1,NC 

RE AO( KIN, 74) BTA ( JJ) , BTB (JJ) ,8TCCJJ) , BTD ( JJ ) , BTE ( JJ> , VMM ( J J) , TK ( JJ, 

11) ,IFRAC 
OO  8101  JK*1,2 

8101  REAO (KIN, 75)  <EF ( Jl , J J, JK) , JI*1, 6) ,ETMI N ( J J , JK) , ETMAX (JJ, JK) 

8113  IF(ETMIN(JJ,2)  .LE.2500.)  GO  TO  8103 

OO  8102  JI=1,6 

EF(JI, JJ, 2)*EF( JI, JJ,2) 

8102  EF (JI, JJ,2)=EF(JI, JJ,1) 

GO  TO  8105 

8103  OO  8104  JI=1,6 

8104  EF(JI, JJ,3)=EF( JI, JJ,2) 

8105  CONTINUE 

IF  (IFRAC.EQ.l)  GO  TO  8111 
OO  801  1*1, NC 

8  G 1  PVOL(I)*TK(I,l)/VMH(II 
W0l=0. 

OO  i02  1*1,  NC 

802  VVOL  =  V VOL +PVOL ( I ) 

OO  «03  1*1, NC 

803  TK  ( 1 ,2 ) *PVOL (I ) / VVOL 
GO  TO  8112 

8111  OO  804  I*i,NC 

804  TK(I,2)=TK(I,1) 

8112  OO  805  1*1, NC 

805  PVMVUI)3TK(I,2) *VHW'I) 

VMWE*  0  * 

OO  806  1*1, NC 

806  VMNE*VHWE»PVMM(I) 

VMNO*VMNE 

IF  (IFPAC.EO.2)  GO  f O  8flv 
OO  807  1*1, NC 

807  TK(I,1> »PVH«<I> 7VMNE 
80S  DO  8136  JI*1,6 

OO  8106 

8106  FLO ( JI ,JJ»*0. 

OO  8107  JK*l • 3 
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3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 
3149 

3146 

3147 

3148 
J149 
1150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 

3159 

3160 

3161 
31l»2 

3163 

3164 

3165 

3166 

3167 

3168 

3169 
IPO 
3171 
317? 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 
318$ 
3186 
318? 

3188 

3189 
3198 


00  8107  JJ*1,NC 
00  8107  JI«1,6 

8107  FLOIJI, JK)«FLD<JI,  JK) *EF < JI , JJ, JK)*TKI JJ,2> 

00  8108  JK»1,3 

FlO(lfJK) *FLO( 1 » JK) *1*  8/VMME 
FLO (2, JK>*FL0<2, JK)*1. 8/VMME 
FLDI3»  JK)»Ff-D  13,  JK)  /VHNE 
FLO (4, JK)*'LO(4f JK)/1.8/VHN£ 

FLt/<5,JK)  FLDI 5, JK)  M«8*l«  8/VNME 

8108  FLDI6, JK)aRLOI6, JK) /VMME 
1  FORMAT (6F9.6) 

5  FORMAT (5E10.4) 

6  FORMAT (4E1C.4) 

7  FORMAT (/9X20MVISCOSITY  LAM  MU»(El0.3,4H*T*»E10.3,3H)/«E10.3*3M“T 
1  +  E10.3 ,1H)//9X19HPRAN0TL  NUMBER  PR*E10.3,  1M>E10.3,4M*T*»E10.3,1H4. 
2E10.3,4M*T**E10.3,/) 

71  FORMAT I/9X34HTEMPERATURE  LESS  THAN  3600  OEG  R.  /) 

72  FORMAT (/9X75HTEMRERATURE  EQUAL  TO  OR  GREATER  THAN  3600  OEG  R,  BUT 
1LESS  THAN  5400  OEG  R.  /) 

73  FORMAT I/9X49NTEMPERATURE  EQUAL  TO  OR  GREATER  THAN  $400  OEG  R.  /) 

74  FORMAT  I5A4.2E10. 4  12) 

75  FORMAT (6£9*6»2F6<1) 

77  FORMAT 1/9X19HENTHALPY  LAM  H*|10.3, 1M*E10. 3, 1H»E10.  3, 11H* IT-540 

10.>*/40X3H,5*Ei0.3,l7HMT**2-S400.**2)-El0.!tl6K*Cl./T-l./S400.>// 
29X19HENTR0PY  LAM  S«£l« .3, 1N«E10. 3 ,15H*AL0G (T/5400. ) ♦ El 0. 3 , 11H 

3*  IT-5408.  )-/40X3H.5*El  0.3,  lfMMl./T**2-l./5400.**2)  /> 

WRITE  I KOUT, 7) VHUA, VHU8  y VHUC  »VNUD,PRDUH, PRA , PR8»PRC,PR0 
MRITECK0UT.71) 

WRITE  I KOUT, 77) IFLO I JI, 1) , JI*i , 6) , IFLD ( JJ, 1 ) , JJ«3, 5) 

WRITE IKOUT, 72) 

WRITE IKOUT, 77) I FLOIJI, 21 ,J 1*1, 6) , (FLO ( JJ,2) ,JJ«3,5) 

WRITE IKOUT, 73) 

WRITE < KOUT ,77)  IFLOI JI, 3) , Jl»l,6) , CFLO( JJ,3) ,JJ«3,5) 

WRITE (KOUT, 78) 

DO  1500  JJ«1,NC 

1500  WRITE  I KOUT, 79)  BTAC JJ) ,ITBt JJ) ,BTC(JJ) , BTO ( JJ) , BTf ( JJ) , TK( JJ ,  2) , 

1  TXT JJ, 1) 

78  FORMAT I 1M1/////21X 13MFLUI0  MIXTURE  ///11X9HC0MP0MENT  10X4HMCLE 
18X4MHASS  /28X5HFRACTION  4X INFRACTION  /) 

79  FORMAT (1H0,5X5A4,2(2XE10*4>) 

WRITE (KOU>, 80) VMWE 

80  FORMAT  I //5X18MH0LECUL AR  WEIGHT  «  FJ2.7 //) 

RETURN 


END 

807A  2*< 

SUBROUTINE  RERAY<N,C,NQ,0,N6*,IS,IS,ND) 

DIRECT  INVERSION  PROCEDURE  --  C  IS  REPLACES  8Y  C**-l 

DIMENSION  OtNO,U,SO  1153) , C INQ ,  1)  ,LU53>  ,S  <1535 ,  LUi53>  .LLU15  3) , 

8158  003 

ILS(l) 

8159  004 

NNN*IABS<NQN) 

NN  «  IABS(NQ) 

K0UT«6 

Nl  *  N  ♦  i 

RERA0070 

HP  *  N  ♦  MN 

RERAQ98P 

DO  15  I«1,MP 

RERA0099 

LILU)  »  I 

RERAOl  JO 

IF  ILSIDI  10*  18,5 

RCRAS120 

LID  *  LS II) 

RERA0138 

GOTO  15 

Rf RA0149 
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3191 

10  L(I>  *  1 

3192 

15  CONTINUE 

3193 

IX  a  -  1 

3198 

IF  (IS  ♦  21  45 » 35,45 

3195 

20  FORMAT (11H  L( I) ,I»1,I 3,5X  (3013)) 

3196 

25  FORMAT (15H  ( CC ( I, J) , J«l» I 3,12H) , COC J) 

3197 

iFORE  RERAT) 

319# 

30  FORMAT ( 2X  11E10.3/C12X  10E10.3D 

3199 

35  NRITECK0UT,25>N*»,NMNtN 

3200 

MRITE ( <OUT  »20)N?»(L(I? ,I“1»NR> 

3201 

IX  >  0 

3202 

DO  40  I«1*N 

3203 

40  MRITE  (  <OUT  ,3C>  (C  <1 »  J)  ♦  J«l»  NP>  t  <0 <1,  J)  * 

3204 

45  IS  »  -  1 

3205 

C 

TRIANGULATE  MATRIX 

3206 

00  130  1*1 »N 

3207 

00  50  Mai, NR 

3200 

50  S(M)*AaSiC(I,H>) 

3209 

IF  (IS)  55,60,60 

3210 

55  IS  *  0 

3211 

GOTO  90 

3212 

C 

REOUCE  ROM  I  3 Y  PRECEEOING  ROMS 

3213 

60  00  65  J«2,I 

3214 

K  a  t<J  *  D 

3215 

OIV  a  -  C(I.K) 

3216 

IF  (OIV)  65,85,65 

3217 

65  C(IfK)  a  o. 

321# 

DO  70  Mal.NP 

3219 

OIVC  *  OIV  •  C(J  -  1»>1) 

3220 

S (M»*AMAX1 (S(M) , ABS (01 VCi ) 

3221 

70  C ( I  ,M)  a  C(I,M)  ♦  OIVC 

3222 

IF  (NNN)  85,85,75 

3223 

75  00  80  N* 1 ,NNN 

3224 

80  0(1, Hi  *  0(1, Ml  ♦  OIV  •  0(J  -  l,M) 

3225 

65  CONTINUE 

3226 

c 

SEER  MAXIMUM  PIVOT 

3222 

90  OIV  a  0. 

3228 

00  100  JJ»I,N 

3229 

Mat  CJJ) 

3238 

IF  ( ABS  (C  (I»H! 1  -  OIV1  190,188,95 

3231 

95  OIV  a  a8S(Ca,»)l 

3232 

<  *  M. 

3233 

J  *  JJ 

3234 

IFII,  1*1.61  CO  TQ  188 

3235 

JF  two- 281  169,100.181 

3  236 

180  CONTINUE 

3237 

101  $0(1) aOlV/SIK) 

3238 

UJintti 

3239 

UJ)»* 

3218 

IF<SO  ID-1.C-9)  104 ,136.110 

3261 

134  Cd.D'S. 

3242 

IF  (SO * I ) )  165.185*98 

1241 

c 

SlNwUtAR  MATRIX  RETURN 

3J65* 

185  IS*"1  ,, 

3245 

MRITE  (ROUT  *135 1  UX.L  ( ID  .  SOni)  *11 

!?4f 

return 

3  247 

no  oiv  *  cii.o 

3?4« 

:u,<)  *  1*5 

6H> ,I»1,I3, 15H) 


D 


RERA0150 
RERA3160 
RCRA0170 
RERA0180 
RERA0190 
0ERER6C2OO 
RERA0210 
RERA0220 
RERA0230 
RE RAO 240 
RERA0250 
RERA0260 
RERAQ270 
RERA0280 
RERA0290 
RE  RA  0300 


RERA0330 
RERA0340 
RCRA039Q 
RERA0360 
RERA  0370 
RERA0380 
RERA 0390 
RERA0400 
RERA0910 
RERAQ420 
RERA0430 

RERA0450 
reraoaeo 
RERA0470 
RER A0480 
RERA  0490 
HERA0500 
RERA0510 
RERA  0520 
RCRA0530 
RERA0540 
RfRAOSSO 
RERA 9580 
RESU8578 
£MR~*0O 


RERA0580 


RfR*A6?3 
RERA 9819 
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3249 

K  *  LLLCJ) 

RERA069O 

3290 

ILL  (J)  *  LLL (If 

RERAO7C0 

3251 

LLL  * I >  *  < 

RERA0710 

3252 

LUK)  »  X 

RERA0720 

3253 

C 

NORMALIZE  RON 

RCRA0730 

3254 

If  (NNNI  125,125,115 

RF.RA0740 

3245 

115 

00  120  J>1,NNN 

RERA079O 

3255 

120 

OCI, J)  -  0iI,J)  /  OIV 

RERA0760 

7*57 

125 

00  130  J*1,NP 

RERA077S 

3255 

130 

CCI,J)  *  CCI,J>  /  OXV 

RE  RAO  700 

3259 

IF  <IX)  145* 140 » 145 

RE R* 0790 

3260 

135 

FORMAT 124M  RIVOT  RON/C 0L/RE5»RATI0  54 14.1M/I3 , 1H/69.2,  trt,  > ) 

RERAO0O 

3261 

140 

WRITE  OCOUT, 135) tl.Ltll »S0  t  J)  »  I* 1*NR) 

RERAOtlO 

3262 

C 

diagonalize  matrix 

RERAC02O 

3263 

145 

NM  *  N  -  1 

RERA003O 

3264 

c 

INTERCHANGE  COLUMNS 

RERA0960 

3265 

00  225  11*1, Nf> 

RERA0970 

3266 

I  *  II 

RERAO90O 

3267 

1*0 

J  *  Ltll 

RERA 0990 

3260 

LCD  *  I 

RfRAlOW 

3269 

If  «J  -  I)  1*5,225*135 

RERA 1810 

3270 

1*5 

IF  CIS)  200,190,200 

RERAIOZT 

1271 

190 

00  195  N*l,N 

RERA1030 

3272 

S  CM)  *  CIM,D 

RERA1040 

3273 

195 

c cm, i)  *  cm,j> 

RERA1050 

3274 

IS  *  I 

RERA1060 

3275 

I  *  J 

RERAIO70 

3276 

GOTO  1*0 

RERAIOOO 

3277 

200 

IF  CIS  -  J)  205,215,205 

RERA 1 090 

3270 

205 

00  210  N-1,N 

RERA11C0 

3279 

210 

C  CM, I )  a  CCM.J) 

RERA 1 11c 

3290 

I  *  J 

RCRA1120 

3201 

GOTO  1*0 

RERA1130 

3202 

215 

00  220  N*1,N 

RERA 1 140 

3203 

220 

C  CM, I )  a  S  (Ml 

RERA1150 

3204 

IS  *  0 

RERAH6C 

3205 

225 

CONTINUE 

RCRA11T0 

3206 

IFCNQN  *  NO)  149,149,144 

320? 

144 

IFonN,NO-NH-NNN)  149,147,149 

32*0 

e* 

)tt«9 

'SOLUTION  WECTOS  ONI 7 

3209 

147 

K*M 

3298 

SO  153  1*1, NM 

3291 

MK-1 

3292 

00  151  U«K,HM 

3293 

sun*cck,h*h 

3294 

IF  CNN)  152,192,151 

329* 

151 

00  146  N*N1,NR 

3296 

146 

CCX,N)  *  C«,M»  -  0U«  *  CC  IL*  1  ,M) 

3297 

CCK»1> ■CC*,i)-OUW«C<lL*l,l> 

329* 

IF  CNNN)  153,153,152 

3219 

152 

00  16*  K*1,MMM 

3309 

14* 

OC«?,M)*3<«,»»}*OUM*OtIL*l,M5 

3301 

153 

CONTINUE 

3302 

GO  TO  1?6 

3393 

c 

'FULL  INVERSION  tm  SOLUTION  VECTOR 

3  JC» 

149 

30  1?5  X*1»NM 

WERA3*»3 

3315 

00  175  J*t,I 

•ERA .  <5$ 

33*6 

3 IV  *  -  CU.CM! 
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3307 

IF  (OIV)  150,175,150 

RERAO90O 

3300 

150 

C(J,I+1)  =  0. 

3309 

IF  (NNN)  165,165,  5 

RERA0900 

3310 

155 

DO  16  1  11=1,  NNN 

RERA0910 

3311 

160 

0 ( J,N  j  =  0 (J,H)  ♦  DIV  *  0(1  ♦  1,H> 

RERA0920 

3312 

165 

00  170  11=1, NP 

RERA0930 

3313 

170 

C  (J,M)  =  C< J, H)  ♦  OIV  •  CII  ♦  1 ,M) 

RERA0940 

3314 

175 

CONTINUE 

RERAQ950 

3315 

C 

INTERCHANGE  ROWS 

RE RA 1180 

3316 

176 

DO  320  II=1*N 

RERA1190 

3317 

I  =  II 

RERA1200 

3310 

230 

J  -  ILCI) 

RERA1210 

3319 

LL (I)  =  I 

RERA1220 

3320 

IF  (J  -  I)  235,320,235 

RERA1230 

3321 

„35 

IF  (IS)  265,240,265 

RERA1240 

3322 

240 

DO  245  M=1,NP 

RERA1250 

3323 

S (M)  =  C(I,H) 

RERA1260 

3324 

245 

C  (I  ,M)  =  C(J,N) 

RERA1270 

3325 

IF  (NNN)  260,260,250 

RERA1280 

3326 

250 

00  255  M=1,NNN 

RERA1290 

3  327 

SO  (H)  =  O  (1,11) 

RERA1300 

3320 

255 

O  (I  ,M)  =  0  (J,M) 

RERA1310 

33?9 

260 

IS  =  I 

RERA1320 

3330 

I  =  J 

RERA1330 

3331 

GOTO  230 

RERA 1340 

3332 

265 

IF  (IS  -  J)  270,295,270 

RERA1350 

3333 

270 

OO  275  M=1,NP 

RERA1360 

3334 

2  75 

C  (I,M)  =  C(J,H) 

RERA1370 

3335 

IF  (NNN)  2-10,290,200 

RERA1380 

3336 

200 

OO  28*  M=1 ,NNN 

RERA1390 

3337 

205 

0(1, M)  *  O  (J, M ) 

RERA1400 

3330 

290 

I  =  J 

RERA1410 

3339 

GOTO  230 

RERA1420 

3340 

295 

OC  300  11=1, NP 

RERA1430 

3341 

300 

C  (I,N>  =  SCI) 

RERA 1440 

3342 

IF  (NNN)  315,315,305 

RERA1450 

3343 

305 

DO  310  M=1,NNN 

RERA1460 

3344 

310 

0(1, M)  =  SO(M> 

RERA1470 

3345 

315 

IS  =  0 

RERA1480 

3346 

->20 

continue 

RERA1490 

3347 

IF  (IX)  340, 33 0  j  34 0 

RERA1500 

3340 

325 

FuRMATUSH  ( (C(I,  J)  ,J=1,I3,12H>  ,(D(J)  ,J=1,I3,  6H)  ,  1=1 , 13 , 15H) 

AFRERA1510 

3349 

1 

.TER  RERAY  ) 

RERA1520 

3350 

3  JO 

WRITE  f KOUT,325>  Np, NNN,  r.' 

RERA1530 

3351 

OO  335  1=1, U 

RERA1540 

3352 

335 

write (K0UT, 30) (C (I » J) , 0=1, NF) , (D (I , J) , J=l, NNN) 

RERA1550 

3353 

5  4  0 

RETURN 

RERA1560 

3354 

ENO 

3355 

CS1 6  A 

B16A  001 

3356 

SUBROUTINE  SlOPQ(N , X, Y , S» Z) 

B16A  002 

3357 

01  HENS  ION  X  <15  ,Y(i) ,S(1),Z(1) 

B16A  003 

3350 

IF(N-l)  9,9,8 

B16A  004 

3369 

0 

S(2)=(Y(2)“Y(1))/(X(2)-X<1)) 

816 A  005 

3360 

S<1)=S(2) 

316A  006 

3363 

QC=S ( 2 ) 

B16A  0  07 

3362 

OO  7  1=1, N 

B16A  000 

3363 

IF<m-N)2,l,6 

B16 A  009 

3364 

l 

Q8=GC 

B16A  010 
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3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3373 

3374 

3375 
33 '6 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 
34  02 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 
34«7 
34 

34  a  a 

3420 

3421 

3422 


IF  (1-217,6,5 

2  XOT=X (I)-X<I+l) 

XTT*X(I*l>-XII+2> 

XT0=X(I*2)-X(I> 

A  A=Y (I ) /(XOT*XTO) 

XOTT=XOT*XTT 

A8=Y(I+l)/XOTT 

AC=Y (I *2) / (XTT*XTO) 

flftA=ftft*XTT 

ABB=AB*XTO 

ACC=AC*XOT 

QA=1C 

QB*S(I) 

QC=S (1+1) 

S ( I) = A A* (XTO-XOT) ♦ ABB- ACC 
S  (1*11 =AB* (XOT-XTT) +ACC-AA A 
S  (1*2) = AC* (XTT-XTO) ♦ AAA- ABB 

3  IF (1-2)7 ,5,4 

4  S(I)=(S(I)*QA)/2. 

5  S  (I )= (S  (I )+QB) /2. 

6  XD=X(IJ-X(I-1) 

YS=Y(I)*Y(I-1) 

SO=S(I)-S(I-i) 

SS=S(I) 

2(I)=Z(I-11+XO/2.*(YS-XO/6.*SO) 

S(I)=SS 

7  CONTINUE 
9  RETUR* 

END 

CB17A 

SUBROUTINE  A8MAX(N,X,XM,I> 

DIMENSION  X(l) 

1=1 

XM=«3S  (X(D) 

IF  (N-l»  4,4,5 
5  DO  3  J=2, N 
XT=ABS  (X(J)) 

IF (XM-XT)  2,3,3 

2  XM=XT 
I=J 

3  CONTINUE 

4  XM=X(I) 

RETURN 

END 

CB18A 

SUBROUTINE  HATSl(X) 

COMMON/INTCOM/KR(20»,KIN,XOUT,MAT1I,MAT2I,MAT1J,HAT2J,NETA 
COMMON/ET  ACOH7  ET  A ( 15) , DETA ( 15) 

DIMENSION  X(l)  ,A(14) ,5(14) ,C(14) 

IF(KR(l).LT»-50)  GO  TO  16 
J8=NET  A 

IF(KRdO)-l)  11,18,19 
16  KR(l)  =  KRd)d00 
JB=2 

X(NETA)*X (NET A) *X(1) 

IF(KRdO)-l)  11,18,19 
18  LIM=NETA-2 
GO  TO  20 


B16A  Oil 
B16 A  012 
B16 A  013 
B16A  014 
016A  015 
B16A  016 
B16A  017 
B16A  018 
B16A  019 
B16A  020 
B16A  021 
B16A  022 
B16A  023 
B16A  024 
B16A  025 
B16A  026 
B16A  027 
B16A  028 
B16A  029 
B16A  030 
B16A  031 
816A  032 
B16A  033 
B16A  034 
B16A  035 
B16A  03E 
B16A  037 
B16A  038 
B16A  039 
B17A  001 
B17A  002 
B17A  003 
B17A  0t4 
B17A  005 
B17 A  006 
B17A  007 
B17A  008 
B17A  009 
B17A  010 
817 A  Oil 
B17A  012 
B17A  013 
B17A  014 
B17  A  015 
B18 A  001 


B18 A  004 
B18 A  005 
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3423 

19 

lim=neta-i 

3424 

20 

J= JB 

3425 

K=JB*NETA-1 

3426 

XJ=0. 

3427 

00  25  1*1, LIM 

3429 

XK=(X(J)/CETACI)-XJ)*2. 

3429 

X  <  J) =-X (K) *XK 

3430 

X<K)*XK/DETA(I) 

3431 

IF  (JB-2)  21,23,21 

3432 

23 

IF(m-NETA)  24,27,27 

3433 

21 

X (I)= (XJ/2.+XX/6.) *DET  All) *0ETACI)-XCI) 

3434 

IFCI+l-NETA)  22,27,27 

3435 

22 

X(I+i)=XCI+l)-XCI) 

3436 

24 

XJ=X(J) 

3437 

X(K*1)=X(K41)-XJ 

3439 

J=J*1 

3439 

25 

K=K+1 

3440 

I=NETA-1 

3441 

XK=  C3. * (X ( J) /DET A ( I ) -X J)-X IX) -X CK+1) > *2. 

3442 

XKP=X(K)*2.-Xi< 

3443 

X ( J)=X IK+1) 

3444 

X(K*l)=XKP/OETACI) 

3445 

X  (K)=XK/OETA(I) 

3446 

IF  I  JB- 2)  26,27,26 

3447 

26 

X(I)=(XJ/2.*XK/8.4XKP/24.>*DETACI)*DETACI>-X(I) 

3449 

27 

RETURN 

3449 

11 

DSV=OETA(NETA) 

3450 

DETA(NETA)=o. 

3451 

1 

311)=. 5 

3452 

A(l)=0ETA(l)/4.+0ETAC2>/2. 

3453 

DO  2  1=3, NETA 

3454 

C  (1-2) =DETA (I-l)/(6. ’A f  1-2)) 

3455 

3II-l)*.5-C(I-2) *B(I-2> 

3456 

2 

A(I-l)=ll./3.-C(I-2)*B(I-2>>*DETACI-l>+3CI-l) *DETA(I' 

3457 

12 

J=NETA-1 

3459 

<= J+ JB- 1 

3459 

L=K+J 

3460 

X (L)  =  X  CL) ♦XCL+l) 

3461 

3 

X  CL-1) =XCL-1)*XCL) 

3462 

X  (L )=X  <l)-X(K) /DETACJ) 

3463 

L=L-1 

3464 

K=K-1 

3465 

J=J-1 

3466 

IF  (J-l)  4,4,3 

3467 

4 

XCL)=XCL)-X(K) /OETA(l) *1,5 

3469 

J=L 

3469 

DO  5  1=3, NETA 

3470 

X<J*l)=Xf  JM)-C  II-2)*Xf  J) 

3471 

5 

J=J*1 

3472 

XS=X(J*1> 

3473 

I=NETA-1 

3474 

GO  TO  9 

3475 

6 

M=L 

3476 

DUN=X(J*l)*(0ETA(I+l)+0ETAII+2)) 

3477 

OO  7  K=l, I 

3479 

X  IN) =X (M) -0UM*8 I <) 

3479 

7 

M=M+ 1 

3490 

J=J-1 
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3481 

3482 

3483 

3484 

3485 

3486 

3487 

3488 

3489 

3490 

3491 

3492 

3493 

3494 

3495 

3496 

3497 

3498 

3499 

3500 

3501 

3502 

3503 

3504 

3505 

3506 

3507 

3508 

3509 

3510 

3511 

3512 

3513 

3514 

3515 

3516 

3517 

3518 

3519 

3520 

3521 

3522 

3523 

3524 

3525 

3526 

3527 

3528 

3529 

3530 

3531 

3532 

3533 

3534 

3535 

3536 

3537 

3538 


8  X  ( J+l) =  X ( J)/A (I) 

1*1-1 

IF  <11  9,9,6 

9  0UM*DETA (1)*DETA  (1) 

X(J)=X(JB>/0UN*3.-.5*X(J+1) 

IF(JB-2)  13f 14,13 

13  X<l)  =  0UM*DETA<l>MX<J)/8.*X(JM)/24.)-X<l> 

14  L=JB 

00  10  I*3,NETA 
J*J*1 

X  (L)=X  (L+D/DETA  (I-l)-DETA  <I-i)/3»*(X(J)*#5*X<JM>> 

IF (J8-2)  15,10,15 

15  DUM*OETA(I-i)*OETA<I-l> 

X  (1-1 )*X(I-2)-X(I-l) +OUM* (X  (L) /2,+DETA (1-1) * (X  (J) /8«*X <J+l)/24.)) 
10  L=L+1 
X  <L )*XS 
OETAINETA)*OS» 

RETURN 

END 

CB18B 


C319A 


SUBROUTINE  NATS21X) 

COMMON  /INTCOM/  KR(20> 

KR(1)*KR<1)-100 
CALL  MATSKX) 

RETURN 

END 

SUBROUTINE  TRMBL (ILK) 

01 MENS  I ON  EPSOUT  <3791  B19A  003 

DIMENSION  XP<4)  ENTR-MOO 

COMMON /COECOM/  C5,C6,C7, C8,C9 ,ClO,Cll,C12, Cl3, Cl4 ,Cl5 B19A  4 

1,C16,C17,C18,C19,C2Q,C21,C22,C23,C24,C25,C26,C27,C28,C29,C30,C31,CB19A 
232,C33,C34,C35,C36,C37,C38,C39,C40,C41,C42,C43,C44,C45,C46,047,C48B19A 
3,C49,C50,C51,C52,C53,C54,C5S,C56,C57,C58,C5«,C60,C61,C62,C63,C64,CB19A 
465,C66,C67,C68,C69,C70,C71,C72,C73,C74,C75,C76,C77,C78,C79,C80,C81B19A 
5 ,C82, C83,C84,C85,C86 ,C87,C88 

COMHON/COECON/  CK1<  8),CK2<  8),CK3<  8),CK4<  8),CK5(  8>,CK6<  8) 

1, CK7<  8) ,CK8 (  8) , CK9 (  8),CK10<  8),CK11(  8),CK12<  8),CK13<  8) 

2, C<14(  8),CK15(  8) ,CK16 (  8),CKl7(  6),CK18<  8) ,CK19(  8),CK20(  8) 

3 , CK21 (  8) ,CK22 (  8),CKK1<  8,  8),CKK2<  8,  8) ,XM<5> ,XG<5> ,XSP<5,  9) 

4, CKK3<  8,  8) 

COMMON/EOGCOM/  PE<40,  1),PTE<40,  1),SPE<  8,40,  1),0UES,B19A 

1UE(40),RHOE(40),VMUE<40) ,TE<40> ,UEDGE,OUEOGE ,D2UEOG,VMHE, CGE, C90 
2, OSIP (40) , IDSIP,TTVC,TVCC(40),HEA<40) ,  SF(20)  ,CS(20) ,CSPR(20), 

3CG(2&) ,CGP(20> ,SREF ,GEP«NEN,UINF ,RHOINF, HI NF , PINF 
COMMON/EPSCQM/ELCON* YAP ,CL NUN,SCT,PRT , RED,OVS,RHCV$,PI,PIM,CL, 

1  EPSA(15),EPS1,EL(15),0PI(15,2),DEPC,TREF,RETR,VINTR<15> 

COMMON/ERRCOM/FLE(  43) ,GLE (30) ,SPLE (30 ,  8) , EL A (313) ,FlEM,  GLEM 
1 , SPLEM (  8),ELM(14) ,ELMM,IFLM,IGLM,ISPLM(  8) ,NELM,ILMM, DFL (43) 

2 ,  DGL (30) , CSPl <30 ,  8) ,FNLE (18) ,GNLE(15) ,SPNLE(  15,  B),ENL<153> 

3 ,  FNLEM ,  GNLEM, SPNLEH  (  8),  ENLMM,IFNLF»  IGNLM,  ISPNLM  (  8) 

4 , NENLM , INLMMjDFNL (18) , DGNL (15) ,0SFNL(15,  8),ORNL(10) 
COMMON/ETACOM/ETA(15),OETA (15) ,0SQ(14) ,0CU(14) ,Bl<l4),B2(14) 

1,LAR(153) ,BA1 (43,18) ,BA2(30,15) 

COMMON/HISCOM/C1 ,C2, C3 , C4 , ALPHO, BETA , ZM<4, 14) ,2G(4,14)  ,ZSP (4,14,  8B19A 

1  ) ,XI (40) ,HF(15,5) ,HG(15,3) ,HSP(15,3,  8) ,MALPH,HUE,HHUE,HFN,0LX2 

2  ,C3M(4  0> ,3ETAM (40) 

COMMON/ INTCOM/  KR< 20) , KIN, KCUT,HAT1I ,M AT2I , FAT1J ,MAT2J,  NET  A , I, IS, NB19A 


B19A 

9 

B19A 

10 

B19A 

11 

B19A 

12 

B19A 

13 

B19A 

14 

,  B19A 

15 

ENTR- 

MOO 

ENTR- 

MOD 

ENTR- 

MOO 

B19A 

18 

ENTR- 

MOD 

B19A 

20 

B19A 

21 

B19A 

22 

B19A 

23 

B19A 

24 

Bl9A 

25 

B19A 

26 

8B19A 

27 

B19A 

28 

B19A 

29 

NB19A 

3Q 
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3539 

lS,IT,NTIME,.(SP,NSPMi,NAM,NLEQ,NNLEQ,NRNL,  ITS, KAPPA, CB AR, CASE ( 15) 

B19A  31 

3540 

2,3(8),  MWE,NON,KQ(10> , ITEM, NITEM, KR17 ,NBT ,NBT2, IDENT , KR9  (40 > 

B19A  32 

3541 

3.KAUXO, JTIME,JSPEC,MD(3) 

B19A  33 

3542 

COMMON/NONCOM/AM (153,153) , DVNL (153) ,TCN, 

B19A  34 

3543 

1VLNKW, DLPH(  9) ,OLPK(  8,  9)  ,DTHW,DTKH(  0>,FLUXJ0(  9) 

B19A  35 

3544 

COMMON/PRPCOH/PR (15) ,T (15) ,RH0(15) ,SC (15) ,CAPC(15) ,QR(15) ,H(15) 

B19A  36 

3545 

i,CPBAR^15), VMM (15),PHIK(15,  8) ,ORHOH,ORHOK (  8>,ZK(  8),DZKH( 

8)  ,  1 

DB19A  37 

3546 

2MU3K (  8) ,DMU4K (  8),DTK(  8),0PHIKH(  8),0PRK(  8>,0SCK(  8>,DCAPCK(  8) B19A  28 

3547 

3 » DHTIL K (  9) ,OQRK (  8),OCPBK(  8)  ,OCPTK(  8>,DMU12K(  8),DZKK(  8 

*  8) 

B19A  39 

3548 

4,0PHIKK(  8,  8),  DT1U4H  , 0MU3H,0HTILH,VMU12,CT ,CTR,CPTIL, 

HTIL 

B19A  40 

3549 

5,VMU3,OTH,OCAPCH,DPRH,OSCH,OQRH,DCPBH,DCPTH,OMU1ZH,VMU(15) , 

RHOP 

B19A  41 

3550 

6 ( 15) , PHIKP(15)  ,HP,TP,ZKP(  8) , VMU3P, VMU4P,HTILP,CRH0 (14)  ,GHR(l5) 

B19A  42 

3551 

COMMON/ VARCOM/F (4,l5),G(3,l5) ,SP(3,15,  9),ALPH 

B19A  43 

3552 

EQUlVALENCE(EPSOUT (1) , EICON) 

3553 

GO  TO  (1001, 1002, 1003,1004, 1005), ILK 

3554 

1001  CONTINUE 

3555 

1  FORMAT (8E10.3) 

3556 

2  FORMAT (/30H  MIXING  LENGTH  CONSTANT  =1PE11.4 

3557 

1  /30H  SUBLAYER  CONSTANT,  YA  +  *1PE11.4 

3558 

2  /3CH  CLAUSER  NUMBER  =1PE11.4 

3559 

3  /3 OH  TURBULENT  SCHMIOT  NUMBER=lPEll.4 

3560 

4  /3CH  TURBULENT  PRANOTL  NUMBER*lPE11.4 

3561 

5  /30H  TRANSITION  MOM. THICK. RE  =1PE11.4//) 

3562 

RE  AO (KIN, 1)  EICON, YAP,CLNUM,SCT,PRT,RETR 

3563 

WRITE (K0UT,2)ELC0N, YAP, CLNUM, SCT,PRT , RETR 

3564 

KQ(10>=1 

3565 

KR  (7)=KR(7)-2 

3566 

IF  (RETR.GT. 0. )  KQ(10>=-1 

3567 

IF  (RETR. LT. -1.999)  KQ( 10) =-10. 01+RETR 

ENTR-MOD 

3568 

CONE=NET  A-KAPP A 

ENTR-MOD 

3569 

RNOSE=FLOAT (KAPPA) 

ENTR-MOD 

3570 

DO  13  1=1, NET A 

ENTR-MOD 

3571 

IF (I.L  T. KAPPA. OR. YAP.GEoO. )  GO  TO  12 

ENTR-MOD 

3572 

VINTR( I) =1 .-(FLOAT (I)-RNOSE) /CONE 

ENTR-MOD 

3573 

GO  TO  13 

ENTR-MOO 

3574 

12  VINTR ( I) =1. 

ENTR-MOO 

3575 

13  CONTINUE 

ENTR-MOD 

3576 

YAP=ABS  (YAP) 

ENTR-MOD 

3577 

RETURN 

3578 

1002  CONTI FUE 

3579 

C**»*  CALCULATES  EPS2/NUE  AND  ITS  OERIVITIVES  AS  DVS  AND  AM(1,... 

) 

3580 

NUL=0 

3581 

COMMENT  ..  C3=-0EL/VMUE  ,  RHOVS=-OEL/VMUE*RHOW*-RED*RHOV/ (RHOE*UE> 

3582 

RE0=-C3  *RHOE ( IS )  *UE(IS) 

3583 

RC=REO*CLNUH 

3584 

PI=0. 

3585 

EPS1=0. 

3586 

OEPC=0. 

3587 

RHOVS=Cl*F (1,1)+ HF (1,5) 

3588 

IF(RC) 75,4,4 

ENTR-MOO 

3589 

4  RR=RHOE (IS) /RHO ( 1) 

ENTR-MOO 

3590 

RRP=RR/RHO (i)*RHOP (1) 

3591 

YDI=0. 

3592 

QI=0. 

3593 

S0Y=0. 

3594 

YOIQ=  0 . 

3595 

ovs=o. 

3596 

JO  66  1=1, NET A 
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3597 

RRP0*-RRP 

3598 

RI=RR 

3599 

YDS*Y01 

3600 

QS=QI 

3601 

YDQO*-YDIQ 

3602 

IFCI-NETA)  5,15,15 

3603 

5  RRsRHOE(lS)/RHO(I+l> 

3604 

RRP*RR/RH0(I*1)*RH0P(I*1) 

3605 

RRFO*F  (3,  I)/RI-F  13 , 1*1)  /RR 

3606 

RRPO»RRPO*RRP 

3607 

YOI=DETACI)/2.MRR*RI*DETA(I)/6.*RRPD> 

3608 

SOY=SOY«-YOI 

3609 

DUMi*Y0l/6,*RRF0 

3610 

0UM2*F (2,NETA)- (F<2, I) *F<2, I*l> > *0. 5 

3611 

DWS*0VSfl-YDI*(0UH2-0UHl/2.) 

3612 

YDIQ=YDI*YOI 

3613 

YDQD*YOQO*YOIQ 

3614 

QI*DET  A (I ) /2. • (0UM2-DUM1) 

3615 

QS*OS+QI 

3616 

YDS*Y0S*YOI 

3617 

15  DRHOI— OS*RI/RHO(I)-F(3,Il  /12. *YDQD/RHCE CIS) 

3618 

LR*HATlJ*I 

B19A 

3619 

DUMs AM (LR, 124) *  DRHOI*  RC 

B19A 

3620 

AM  Cl, I*3)*ANf 1,1*3) -0«5*RC*YOS*C7*DUM*F (2,1) 

3621 

IF (1*1 )  20,20,25 

3622 

20  AHC1,3)=AMC1,3)-RC/RI*YDQD/12. 

3623 

GO  TO  30 

3624 

25  CALL  LIA0(-l,l,NETA-2+I,-RC/R:*YD00/12.» 

3625 

30  AM(i,l)*AN (t,l)-0UN*C7*F(2 » II *FC2,II /ALPH 

3626 

MPJ=sNAT  1J+1+I 

3627 

00  60  K*NUL,  NSPM1 

3628 

IF ( K)  40,40,35 

3629 

35  LRK»NAT1J*MAT2J*I 

3630 

DUN=AN(LR» K+124)  *  ORMOI*  RC 

B19A 

3631 

40  IFCI-NETA)  50,55,50 

3632 

50  AM(l,HPJ)*AM(l,MPU)+OUM 

3633 

GO  TO  60 

3634 

55  CALL  LIAO(K,l,l,DUM) 

3635 

60  HPJ»MPJ*MAT2J 

3636 

IF  (KR ( 17) )  66,66,65 

3637 

65  MRITE  (ROUT, 640)  RC,RR,SOY,RRP,RRPO,RRFO,YOI,YOS,OUMl,OUM2tOV$ 

3638 

1 ,  YOIO*  YOQO,QI,  QS»DRHOI,  AM  <IP»1Q4),  (  AMCLRK,  K*107>  ,*(*1,NSPM1)  , 

3639 

2  (AMCl,  J> ,  <J>1*MNLEQ)  ,  EHLC1) 

3640 

66  CONTINUE 

3641 

OVS*AMAX1(0.,RC*DV$) 

3642 

AMC1,MAT1J)«AMC1,MAT1J)*S0Y*RC 

3643 

RETURN 

3644 

75  RC— Rl 

EMTR-MOO 

3645 

OYS»0  . 

EMTR-MOO 

3646 

DO  80  1*2, META 

EMTR-MOO 

3647 

CALL  TAYL0RCQET4CI-1),FC2,I-1>,F(2,X),XP) 

EMTR-MOO 

3648 

OWS*OVS* (F  (?»1 1  •XP(l**lr  (3, 1)*XP(f>*F<6»II *XP(3)*F (4, 1-1)*XP(4) ) 

EMTR-MOO 

3649 

IFP*IO 

EMTR-MOO 

3650 

IFPP»NETA*I-2 

EMTR-MOO 

3651 

IFPPP*XFPF*META 

EMTR-MOO 

*  3652 

AM(l,lFP)»XPCl)*aM11,IFP) 

EMTR-MOO 

3653 

CALL  LlA0f-l,l,IFPM,XP(2») 

EMTR-MOO 

3654 

CUL  LI  AO  (-1,1,  IFPPP,XPI3) ) 

EMTR-MOO 

r 
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3655 

CALL  LIAO (-1,1 , IFPPP-1 ,XP(4)  1 

ENTR-NOO 

3656 

80  CONTINUE 

ENTR-MOO 

3657 

DVS=OVS*RC/F(2,NETA) 

ENTR-MOD 

3658 

00  85  I=1,NNLEQ 

ENTR-MOD 

3659 

85  AM(l,I)a-AM(l,imC*2./F(2,N£TA> 

ENTR-MOO 

3663 

AH(1,2)=AM(1,2)-RC 

ENTR-MOD 

3661 

AM(1,HAT1J)*AN(1,MAT1J>+0VS/F(2,NETA) 

ENTR-HOO 

3662 

CALL  LIAO(-l,l,NETA-i,RCl 

ENTR-MOO 

3663 

OVSaAMAXl(RC*(F(l,NETA)-F( 1,1) >-0VS,0. ) 

ENTR-MOD 

3664 

RETURN 

ENTR-MOO 

3665 

1003  CONTI FUE 

3666 

C ****  CALCULATES  NIXING  LENGTH  AND  ITS  DERIVITIVES 

3667 

100  PIN=PI 

3668 

PIaSQRT«ABS(RE0/C26*(CAPC(l)*F(3»l)-ALPH4RHCVS*F (2,1)) > >/ 

3669 

1  (CAPC(I)*YAP) 

3670 

IF(I-l)  305,305,101 

3671 

101  EPI»EXP  (•  (PI+PIN)/2«  *OETA  ( I-D ) 

3672 

PIO=PI-PIN 

3673 

IF  (PIO/PI-.OOOD  102,102,103 

3674 

102  P I* ANA XI (PI, PIN) 

3675 

PIO*l. 0 

3676 

AF*1«  0 

3677 

ERP1=1./PI 

3678 

ERPPla-2./(PI*PI) 

3679 

ERP2*1./PIM 

3680 

ERPP2*'2./(PIN*PIN) 

3681 

GO  TO  104 

3682 

103  AF*SQRT(2,/PID*OETA(I-l»» 

3683 

ERF1*ERP(AF/2.*PI) 

3684 

ERPPi»l.-AF*PI*ERPl 

3685 

ER»’2=ERP(AF/20*PIH) 

3686 

ERPP2=1.-AF*PIN*ERP2 

3687 

104  8F=ERP1-EPI*ERP2 

3688 

L'CLL*EPI 

3689 

OUNlsOFTA(I-l) /2.*EPI*(AF*ERP2-CL> 

3690 

CL*CL*EPI*AF*BF 

3691 

EL  (I ) *  ALPH*ELCON*  <CT A ( I)— CL) 

3692 

0UM2*AF/PI0*(8F/2« ♦ERPP1/4  « *AF*PI-EPI*ERPP?/4. *AF*PIM) 

3693 

0UM3*AF/2.*AF 

3694 

OCLPIaOUNl-OUN2*OUN3*ERPPl 

3695 

0CLPN*OUN140UN2-0UN3*ERPP2*EPI 

3696 

tF  (1-2)  305,330,320 

3697 

305  EL(1>*0. 

3698 

00  307  J*?.  »NNLfcQ 

3699 

307  AN(2,J)aO. 

ENTR-NOO 

3700 

CL*Q. 

3701 

OPI(l,2)a  CAPC(l) 

3702 

OPi ( 3 , 1 ) *  M3, l)*OCAPCH 

3703 

IF(NSPNl)  350,  350,310 

3704 

310  00  315  K*1,NSPM1 

3705 

315  OPKK*3,l)a  F ( 3 , 1)  *  OCAPCMM 

3706 

GO  TO  350 

370? 

320  00  325  J*t,NNL€Q 

3?08 

325  AN(2»J)aANt2,J)*0CLL 

ENTR-NOO 

3?09 

330  OUHa-TREF»OCLPN*ELCON*ALPH 

3710 

AH(2,t)»AH(2,l)*  (EL (D -OCLL*f L d-t)  ) / ALPH 

ENTR-NOO 

3711 

L  *1-1 

3?12 

331  AW<2,t>*AN<2,l)*0?l(l,il*0UN 

ENTR-NOO 
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3713 

3714 

3715 

3716 

3717 
371# 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 

3736 

3737 
3736 

3739 

3740 

3741 

3742 

3743 

3744 

3745 
37  46 

3747 

3748 

3749 
375J 

3751 

3752 

3753 

3754 

3755 

3756 

3757 
375# 
3759 

3768 
3761 
376? 

3763 

3764 

3765 
J  766 
1767 
376* 

3769 
377# 


AHt2,2)*AH(2,2)fOPI  (2,  ll'OUM 
AM  (2,3)*AM (2,31+OPX <l,2l*OUN 
AM<2,L*3> *AM<2»1>3) 40PI (2, 2)*DUN 
J*MAT1 J*2 


00  340  KsMULf NSPN1 

AM<2, J)*AM(2f J)«0PX (KO,l)*DUM 

JL»J*L-1 


AM(2,  JL)*AM(2,  JL)*0PI(K43f2)*0UH 
340  J*J*MAT2J 
345  IF(L-I)  350,400,400 

350  TREF-  RE0/C26  7 <2«*C4PC(X) •TAP*P1*VAP*CAPC (I) > 

2!  ^—^'TTREF*1  (OCAPCH/  CAPC  <  H-ORHOH/  (2.  *RHC  fj> , , 

0PI(2,2)«  C10*OP1(3,2)-RHOVS*ALPH 

OPI  (1»1)*-C56»C10*OPU3#2)  -RH0VS«FI2,I) 

DPI <2, 1I»-ALPH*C1*F I2» I) 

IFINSPMl)  362,362,355 
355  uO  360  K«1,NSPM1 

360  DPI<K*3,2l«-PI/TREFMOCAPCMK»/CAPCUJ-DRHONm/12..RHO<I>r 


ENTR-MOO 

ENTR-MOO 

ENTR-MOO 


ENTR-MOD 

ENTR-HOQ 


OUM»-TREF»OCLPI*ELCON*ALPH 
IFU-ll  445,445,365 
365  IF(I-NETA)  331,400,400 

C****  CALCULATES  EPS1  ANO  EPS2  —  COMPARES  TO  GET  EPS 

400  0UHl«ELm/6LPH*aiI»/ALPH*R|0/C26 
C26S*C26*C26 

EPS1*ANAX1(0UM1»F(3,X) ,CPS1) 

EPS2-0VS/C26S 
IFCEPS1-EPS2)  405,401,401 

401  EPS«EPS2*VIMTR(I» 

ENL (3) *JNl(l)  /C26S*VINTR(I I 
00  482  J*1»NNL EQ 

4  02  AM(3,j>,*H(i, J)/C26S»VINTR(I) 

0>W1»2.0*EPS/RM01I> 

GO  TO  415 

405  EPS*EPSl*VINTR(I) 

EHU3)«0. 

00  418  >1,»WLEQ 

418  AM  <3, ,*fps/EL ( J ) *AH(2, J) 

AM3,  ll»AMC3,  l>-2, /ALPH*£PS 
CALL  LIAO(-1,3,NCTA»1-2,OUH1) 

OUMl«EPS/*HO(I) 

415  OUM»OUMJ*0»MON 
EPSAlUtfRS 

A«(3,l»*AM<3,l»-C56»Cl8*OUM 

AN<3,t«3>«AM(3,I*3>»OUM*Cl8 

L»M4T 1 J 

00  6?»  X*NUL,M3PMi 
17  t|»KCT6l  416,416,416 

416  CALL  f  I AO(K,3, 1 , DUB) 

GO  TO  419 

418  6Mt3,J)»M(3»J}  *OyN 

419  J«J*N4T2J 

428  OUN-OVNi«DR*OKf*»i> 

OfPC*CNL«J> 

445  RETURN 
1194  CONTINUE 


CALCULATES  EPS 
DERIVITIVES 


entr-moo 

ENTR-MOO 

EMTR-NOO 

ENTR-MOO 


entr-moo 

entr-moo 

cmtr-moo 

entr-moo 

Entr-moo 


Cntr-moo 

entr-moo 


entr-moo 

Cnvr-moo 

entr-moo 


entr-moo 
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37?1 

3772 

3773 

3774 

3775 

3776 

3777 
3776 
3779 
3760 

3781 

3782 

3783 
3  784 

3765 

3766 

3767 

3768 

3769 
3»'*»C 
379. 

3793 

3794 

3795 

3796 

3797 

3798 

3799 
3600 

3801 

3802 

3603 

3604 

3605 

3806 

3807 

3608 

3609 

3610 
3811 
3612 

3813 

3814 

3815 
3616 
361? 

3816 
3819 

3620 

3621 
3822 
3  823 
3626 

3825 

3826 

3827 
3*26 


C***»  MODIFIES  ENL  ft  NO  AM  AFTER  I  RONE 
L*I"1 

SALPH=-ALPH/TTVC 
IF (1-2)  650,650 , 600 
1005  CONTINUE 

MODIFIES  ENL  AND  AM  AFTER  XCNLY 
L*I 

SALPH«  ALPH/TTVC 
600  IFPP»L6NETA«2 
ISPP-L 

DUM*F(3,U/SALPH 

ENL(I*3)«ENL(I*3)-OUM*(EPS-OEPC> 
AH<I*J,1)*AM<I+J,1>-0UM*£PS7ALPH 
C28»C28*OUM*EPS 
DO  605  J«i,NNLEQ 

6  05  AH<I+3,J»«AM(I+3,,mOUH*AM  C3,J) 

CALL  LIAO<-J,IO»IFPP,EPS/SALPH> 

MPJ*MAT1J6I 

PRF«1.-1./PRT 

E6i*G ( 2* L ) / ISAL ?H*PRT) 

EG4*-PRF/SALPM*C13*F(2,L) 

EG3*EG4*EPS 

EG4«EG4*EG1 

£G2*EPS/SALPH*  <l./SCT-l«/?RT)* (MP-CPBAR  <L ) #TP) 
ENL  (MPJ)-ENUMPJJ-EGl*  (EPS-CEPC) -EG2-EC3 
C32*C32»EG1*EPS*EG2»EG3 

AM(HPJ,l)«AM(MPJ,l»-EGl/ALPH*ePS-3.0/ALPM*IG3 
DO  610  JM.NNLEQ 

610  AM(HPJ,  J)  *AM(MPjf J) ♦EG4»AH(3,Jl 

AM (MPj*L+3)*AM (MPJ  , L»3)-PRF*Cl3/SALPH*EPS 
CALL  LIAO(-l,MPJ,NETA»L-2,-PRF*C10/SALPH*EPS» 
CALL  L I AD  CO,  HP  J, ISPP,EPS/ < SALPH*PRT) ) 

IF(NSPMl)  650,650,615 
615  00  630  K*1,NSPM1 

0UM*SP12,L,5>/ <SALPH*SCT) 

MPJ*MPJ»MAT2J 

CK6(K)*CK6(K) ♦DUM*£PS 

£NLCMPJl*ENLtHPJ)-OUNMEPS-OEPC> 

AMIMPJ, il»AM(MPJ,l) -OUM/ALPM*CPS 
00  620  J31 »NNL EQ 

620  AM  IMP J, J) *AMIMPJ,J) ♦  0UM*AH  < 3, Jt 
630  CALL  V.IAO(F,MPJ,rSPP,EPS/«SALPM*SCT)» 

650  IMKlMim  666 , 660 , 655 
655  NRITf tKOUT,6401  EPSOVT 
640  FORMAT J/llPiCEl2.5>> 

660  RETURN 
CHO 

C819T 


ERTR-MOO 


EKTR-HOO 

ERTR-MOO 

ERTR-MOO 


EMTR-MOO 


ERTR-MOO 


suoaoitinc  rarcrcicoi 

CONMOM/GOCCOM/  CV«C6tC7,C6,C9,Cl6,Cll,Cl2,Cl3|Cl4,C.58i9T  4 

1 ,Cl6,Cl?,Cl8,Cl9,C29,C21,C22,C23,C24,C2f,C2«,C|',C26,C2%,C36,C3l,C»lfT  5 

232,C3I,C36,C35,eM,e37,C38,C39,C68,C4t ,C42,C63tC64,C65,C46,C47,C66«l9T  6 

3,C49,C59,:9l,C52,C5?,C54,C«l,C56,CS7,C56,C59,C68,C6i,C62,C63,C66,Ctl5T  ? 

465,C66,C67,C6»,C69.C?8,C?l,C72,C73,C76,C7f  ,€74,C77,Cr8,C7t,C*8,CM»19f  8 

5,C62,C63,C64,C65,C66,C67,C6t  219T  6 

COMR0N/COCCOM7  C<1 (  8>,C*2t  »>,C*3C  •)  ,C*4  •  8>,C«5C  6>,CX6<  •  »  RtRT  10 
UCX't  6>,C<6f  81  ,C*9 1  d>,CK13<  8)fC«Uf  6>,C*12t  6»,t*13C  6)  R19T  U 

?.CF14t  81  ,C*l5  C  81,C«16C  ll.CrtTt  t),CKl«(  «),Cri9(  61  ,  £K?t  <  6)  fjRT  12 
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3829 

3830 

3831 

3832 

3833 
383** 

3835 

3836 
3637 
3636 

3639 

3640 

3641 

3642 
3843 
3644 
3849 

3646 

3647 
3846 

3649 

3650 

3891 

3892 

3893 

3894 
3659 
3656 

3857 

3858 
3659 

3860 

3861 

3862 

3863 

3864 
3869 

3866 

3867 

3668 

3669 
If  78 

3671 

3672 

3673 

3674 

3675 

3676 
3877 
3676 
3675 
3666 

3661 

3662 

3663 
3684 

3665 

3666 


9)  819T  13 

B19T  14 
p,*u«  1)  |OUE$;BlfT  15 
,VHME»CG£,C90 
,CSPR<29>, 


,B2<14> 

,ZSP(4,14, 
*»HFR,0LX2 


ENTR-MOD 
CRT R- MOO 
ERTR-MCD 
9197  16 


tM<  8) »DPRK (  6 1 ,f)SCK<  8;,DCAPCX< 
ICPTKf  61 , 0MU12K (  6) ,0ZKX (  9,  6) 
tnwrti  iunv4^|06TJLN|VNU12  *CT  |CTR|C7TIL  ,  NT  XL 
VMUJ,OTH,OCAPCM,OPRH,OSCH,OGRM,OCP§M,OCPTM,OIIU12H,VIUttSl,  *HC 
15J,PHIKP<15>  ,HP,TP,ZKP<  6) , VRU3P,VNU4P,HT1LP,CRK0<14)  fGHR (15) 
0HM0M/TE6C0W/SP0UH  (  6  )  ,OER  <40)  ,OU*M  1 « 15)  ,  SLOPE  ( 15)  ,  RCOUttf  15) 
SOUNK40)  ,SOUH2(40>  ,f  MOUH(40)  ,XIC0Mf4Q)  ,FMCOM<46>  »FWINIT  I  II 
XIINITf  l)fOUOS(  40) 

GMHON/VARCCM/F  <4, 15) .G (3 , 15) , SP  (3, 15,  9) , ALPN 

0  TO  <1801,1002,1613,1964),  IGO 

OM>l 


’  <  <R  <  6 1 )  20,20,35 
M*  NSOfl) 

25  IS*2,LIR 

uhkis)  »  sail 

UM2IIS) 


A44AP  6  m 


sas) 


S0UR2<1)«6. 

CALL  SLOPC (LIN ,  SOUN1,  SOUHJ ,  Of*,  OCR) 

00  36  IS«2,LIN 
OUM*l.  -  SOUH2 11$) 

38  TVCCf  IS)  *  S0RT<4,  *OCR<ISI  *  tOUH-SHTWi  <IS)*6fR<IS)>*  SOUK* <|$>/50UH 
u<isi*u.*ouri>/ouk 

T5CCI1)  *  SORT (6.*0£Rtl>) 


LO*»* 

IL»1 

IFOtOISC)  56,56,46 
35  IL-8 

46  LIW*N0ISC*1 

00  45  tI»L©*,LIR 
X*  HSOft!) 

CALL  SLOPQ tMSO ( II),  SIR),  RGXAPIR) ,  OCA<R»,  OCRCRI) 
XX»X*IL 


00  45  IS*RR,!GH 
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3607 

3688 

3664 

3690 

3691 

3692 

3693 
3  "44 
3o95 

3696 

3697 
3696 
3699 
3900 
3991 

3902 

3903 

3904 

3905 

3906 

3907 
3906 

3909 

3910 

3911 

3912 

3913 

3914 

3915 

3916 

3917 
3910 

3919 

3920 

3921 

3922 

3923 

3924 
3  925 

3926 

3927 
3926 
3929 
3933 
3931 
393? 

3933 

3934 

3935 

3936 

3937 
3934 
3934 
3941 
3441 
394* 
33*3 
34  4* 


45  TVCC1IS)  *  SQRT (i.-DERIIS) *CER<IS))/ROXAPIIS> 

50  DO  55  IS* If NS 

55  TVCCftSU-rVCCltS)  «,2.»C3MIIS>*¥HUECIS) 

RFT'JRN 

1002  CONTINUE 

CAUED  INrtSOIATECY  AFTER  ICOfiFF 
IF  <1- J )  115,115,125 
115  RHS*0. 

CO  120  <J*1  ,KNLEO 
120  AH (4,J) *0» 

CO  TO  130 
125  IN0*I-1 
SlX*-6. 

CO  TO  140 
130  IND*I 
SIX*6* 

C27*ORHOH 
OO  135  K*1,NSPK1 
135  CK11IK>*ORHOKHO 

IF II-  ))  1(5,165,140 

140  0UN*OET  A  <I-ll  /  2,  »RMO£  I  IS) /RHG  UNO) 

IF  IKQI9I ,LT. 0)  DUH--0UM 

RHS*RHS*OUH*l  1 «  «  RHOP  UNO)  /RHO  UNO)  *OCT  All- D/SIX) 
OUH*-OUK/RHO  UNO  ) 

LRS*NATlJ*INO*l 
IFINSRH1)  155,155,145 
145  lRI»LPS 

OO  150  K*1,NSRH1 
LRI*LRI*NAT2J 

150  ANI4,LRI>*AKI4,LRI)40UN*CK11IK) 

155  QUH*0UH*C2T 

AHI4, EPS)  =4(114, U*S)  ♦  OUN 
l)UH^OUN*C7*F  (2  ,  INO  ) 

AN  14,  I  NO*  J I  •  AH  (4 ,  I  NO  4  3)  ♦  OUH 
AH  14 , 1 )  *  AN  (4  ,  1 )  -OUH/ ALP W*  F  12,  INO  I 
IF  (IND-I)  130,160,160 

16  0  TTVC*AHAjtlli.*RHS*ALRN«T¥CC  IIS)  ,C.f  001) 

165  RETURN 

1003  CONTINUE 

CALICO  IKHCCIATflT  AFTER  IHONC 
!NO*I-l 

0UHl*-T9CC IIS) / T  TVC 
CO  TO  265 

1004  CONTINUE 
INO*! 

QUH1*T VCC I IS) /TTtfv 
205  DUH2*0UH1*C26 
OU«3*OCHt*  C32 

AH{I*3,|)»AHlI*3,l)*OU«f*RNi 
H*  HAT  1^*1 

AHfH,i)*AN|«tt)*OCNJ*RHS 
Cuh2*OUN2*/u.rh 
QUNJ*0UH3*  M.HH 
oo  318  j*i, Mm.ro 

AHi;*3,J)*AHII*1,J) *CUH2*AHI4,J» 

215  ANIW,  J)»AHIH,J)  »3UNJ*4«I4, J> 

229,225,  215 
21-  04  2??  F*t,NSRHt 


ENTR-HOO 


ENTR-HOO 


ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 


fNTR-HOO 

ENTR-HOO 
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3945 

3947 

394® 

3949 

3950 

3951 
395* 
3993 
3954 
3995 

3956 

3957 
395® 

3959 

3960 

3961 
3967 
3963 
396% 

3965 

3966 

3967 

3963 

3969 

3970 

3971 
397J 

3973 

3974 

3975 

3976 

3977 
3970 
3979 
3900 

3961 

3962 
3993 

3964 

3965 

3966 

3967 
3966 
3969 

3996 
3991 
S'*  9* 

3993 

3994 
3994 
399* 

3997 
3996 
3999 
4609 
•-SOI 
4®32 


DUHS-QUNl'CKBlK) 

N»Nt>NAT2J 

AN(H,1)«AMCH,1)*DUN3*RM$ 

0U«3»DONJ*ALRH 

00  770  J"1,WHL£Q 

770  *tt(M,J)  «  AM(H,J)  ♦  0UN3*AK(4,J) 
775  RETURN 

ENQ 


ENTR-NOO 


CS79A 


870A  301 
B70A  CP? 
870*  09% 
87  OA  0  06 
87® A  007 
E  MR- WOO 
B79*  089 
870A  01® 


1® 

19 

7® 

71 

n 

23 

7% 


SUBROUTINE  LOUR  <KQ,  7,  RRRi 
INTEGER  FAWOA,  FAW09 
EQUIVALENT ( TU C  771 , Tf) , (VNU,CIJI 
OINENSION  CIJI  7i,lt,TF(i) 

CO«NON/TENCON/ARf<16,l6>,8S4l6» 

OKIE  NS  ION  VLAN  I  71,1*,  X(16),SAWK(  7*,  1> ,  K0(  1®)  ,OOJRXl  <  7  •.«> 

EQUIVALENCE  (AN  (  741.0QJRNLC  7%)  f  CAHK,  VUW) 

?iU*  •***  7i,15)»N(3),LfF(10>B2#A  11 

1,LEFS(16) >RIE*SE ,LEFW(10) , L7 » L3  ENTR— NOO 

BUNR,CORNA,EASE»ICORN,VOOT,TRZ,  1777,  DTEHR,  AIR,  IXB20A  13 
CONNON/EOCCON/  RE  (48,  1),RTE(4®,  i),SR£(  8,40,  1),0UCS,  B70A  1% 

7,0SIR<4JI,I0SIR,TTVC,TVCL(48),NEA(4®),  SFI28) ,CS (20) ,CSRR (26) ,  ENT5-W00 
3.6(2®) ru6R(7fl) , SRCF, CER, NCR, UINR ,RN0INF, NINE, RINF  EN7R-N00 

COHNON  /CQRCON/  RBI  71,2), RC(  71,2),R0(  71,7)  ,RC(  71,7), RM  71,7), B20A  17 

1  TU(  7l,2),FF(  71)  ,FFA,IFC(  711 ,  ATA(lt)  ,ATB(1B)  ,  ATCI1®)  ,  N6T 1 1  «>  ,  »|t 

2  KAT(10),IR(1I),IS,«C|®1,LANI(  7i),R,T,TK(tl,  7)  , VN(  71)  , 

3  VNU(  7i,io),ITFF,<R2,NCM,NCV,tfN,NTN(  7D,TI  7l)  ,TM(  7l),66(  7l) 

4  ,10(18,  7)  ,£RQVRK,SI6M4,|6SW*L 

}  .N*,»6S5,01  ,  ZSf>0. 

*  iiM^:^i;?!#,s!c»s,,D'su,,c*w»c,^**p»*9»iRCJc,iiT6,i(TL,jc,N6, 

3  CR6,  1TN1N,TTN6 X,L 7, L8 ,18(11) ,CB«1B) ,EBL (II) , A (16, 16) , 0(16) , 

c  IV  I**  *ALR(1®)  1 7  NO  (10)  ,6ANM(1|)  ,CANF  (ll),SLiR(18),DY(  7l)  ,RVS, 

5  CRI  71), Ml  71) , SB (  7l),TC(  7i),VLN«(  71), It  71) .RNUS(IO) , 

6  6C  <  1 0)  •  8LNX  (1 0  )  ,•▼  (  10)  ,  IBC  ( 1 0)  ,BC(  111  ,U,I(  %) 

CONNOM/rLRCON/TXI(7) ,TUI(2) , TAHOE (2) , T< I (2 ) ,TVNUI (!) ,TNAT(566,2) 

2  »TWFt l 5,2) iLIFT(1®,2) , TRf (2),TRAOS(2) ,TOSIRt2) ,K0T(2) 
CO*ttON/FLXC<XVOfLQ«,Otl  JN(  •)  ,OONL  *153)  ,  OJNL  ( 153,  O.MALLQ 
l.ttAUJ;  •>  ,Qtt,  VJiOM  9),TRV*LL 

'*»T5»;/*'«t*9»»**»(.*(>UT,l«ATtI,RAT2I,N6TlJ,NAT2J,NETA,n, 

**^***^*  »RARtNLtQ,NNLEO,  WRWL  , WITS, KARRA  ,CBAR, 

2CASEU5)  .••(•!  ,  WNf  ,NON,R3<l|),XTEN,NITfN,X«l7,NfT,l«Tj,lOEHT, 

3KR5f%9)  ,«AUJtO,  JTJwf  ,  JSRIC.NOC  J)  ,IU,1SH 
COWMOMs  WOMCOW/  Attl  153,  1939  ,  OVAL  1 153)  ,  TCM, 
tnUttS^LRHt  9),0LR«t  I,  *>  ,8TN»,DT*Vt  6),FLLXJB(  f)  „„ 

COtWON  /RRMCOM/Rttlf).  TKtD.RNOUSl.SCdfJ^ARCtlfl.QRIlSl.HHClS)  *7®A 

l,CR«ARUf),VNV(l9)  ,RNIX(|»,  6)  ,  0»WC*  ,  ORWCK  t  t)»*M  4),D7KHt  |)  ,  0678* 

®),OTA(  6) .OMHJXHt  «),OM*Kt  6),QSCM  »),QC*RC*t  •) 970A 
*),OQ»A(  6),0CR8K(  ®),DCRTK(  6),QWl*i?«<  6>,07KVt  6,  6)  fZ06 
*•  **•  OMUMt ,0MU3N,OMT ILN, VNU12,CT , C TR, 3 RT I L, NT IL  870* 

9,  Vm)3,OTM,9eARCM,ORRM,OSCM,PORNvOCRBH,OCRTN,OHUt2H,VMU(l«)  .  rmoa  B20A 
6U5),RN|VRIlS),NArTM,z»(  0)  ,  VWU3R,  VIMHR.Mit^CRKOt  14)  , MR  tlf) 

COMMON /V6RCOM/F  (4t15),6(3,15)  ,5*13,15,  9),U*N  .fj. 

C  CMMOM /■«.  CODI/ F6(%8.  D  »TN  (4®,  {>»**<%!,  J>,5F*I  «,%»,  1)  t?®6 

*•**•  **  I7N»  IFN,  ISRN,  IRHOVK,  IFL  UXJ  mt 

1  FORM6T  (|®Ilt3Fl8.5) 

?  FORMAT (/9I6MTEMR  «Fl0.4,l7W  B|C-t  ARCS  «F6.%,lFN  ATM  *<*.  *» 


9706 
*706 
>206 
*216 
B70A 
•706 
ENTR-NOO 
8716  76 

970*  77 

8706  78 

B706  79 

B706  36 

9764  31 

8706  32 

8766  33 

•264  3% 

37H  35 

INTR-NOO 
8206  37 

•204  36 

19 
%• 
%t 
42 
53 
W% 

45 

46 

47 
%4 
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<4  0  03 

IT  =F1 1 •  7) 

E20A  049 

4004 

3  FORMAT {  /87H  SPECIES  PAR. PRES.  D-LOG-PP  LOG-PP 

LOB20A  050 

4005 

1G-KP  FLAG  ERROR  CP  / { 1X2A4 ,4E  13. 5, 15 , 2E 13 a 5)) 

B20A  051 

4006 

4  FORMAT C/10X60H  CP-FROZEN  CP-EQUIl  DLNM/OLNT  DLNM/OLNP 

GB2QA  052 

4007 

lAHrJA  /10X5E12.5) 

B2  0 A  053 

4  0  08 

7  FORMAT ( 13, F8. 2, 11E10.3/91X3E10. 3) 

4009 

8  FORMAT (1CX10HENTHALPY  =£14.7, 20H  CAL/GM  ENTROPY  =E12.5,13H 

CAL/B20A  055 

4010 

1GM-DEG  K/10X  9HOENSITY  =E13.6,  8H  LB/CUFT) 

B20 A  056 

4011 

6  FORMAT!//) 

B20A  057 

4012 

9  FORMAT (5X  5HVEL  =Ei0.3,16H  FT/SEC  MACH  =E10.3,  9H  AREA  * 

E10.3B20A  058 

4013 

1,12H  SQFT/LB/SEC) 

B20A  059 

4014 

10  FORMAT (10X17HFRACTION  LIQUID  =F8.5> 

B20A  060 

4015 

42  FORMAT  I 8F10.4) 

B20A  061 

4016 

DTU=50  0. 

4017 

DTD=DTU 

4018 

LEFUP*1 

B20A  063 

4019 

TTMIN= 100. 

ENTR-MOO 

4020 

TTMAX= 100000. 

ENTR-HOD 

4021 

IQQ=0 

ENTR-MOD 

4022 

MELT=1 

ENTR-MOO 

4023 

FLIQ=0. 

ENTR-MOD 

4024 

HMELT  =0. 

ENTR-MOD 

4025 

IT3=0 

B20A  065 

4026 

IG=  0 

4027 

INV=0 

4028 

SPEASE=PIEASE 

4  0  29 

TI0N=10D0. 

ENTR-MOD 

4030 

IF (II. NE.NETA. ANO. KR (5) .EQ.O)  TION=1000* 

ENTR-MOO 

4031 

ISP=IS+1 

e20A  066 

4032 

00  302  1=1,6 

4033 

302  KR(T)  =  KQ(T.) 

B20A  068 

4  034 

M0DE=KR  Cl) 

B2 0 A  069 

40  35 

IF (KR (5) «NE.3)P=PRR 

ENTR-MOO 

4036 

KKJ=0 

ENTR-MOD 

4037 

KR  (8)  =  0 

4038 

KR (6)  =  KR  <6>-l 

B2  0 A  071 

4039 

IF  (KKR  ( 18)-6)  3021,3021,3022 

4040 

3021  KR(7>=.KKR(18)*5-9 

4  C  41 

N7  =  51.-K<RC18)*5 

4  042 

GO  TO  3023 

4043 

3022  KR (7)  =  0 

4044 

N7=KKR  (18) ♦10-50 

4  045 

3023  IF(KR(5>-1>  310,304,306 

4046 

C*****ISENTR0PIC  EXPANSION 

B20A  074 

4047 

304  SIP=SIP-DSIP(ISS) 

B2CA  075 

4  04  8 

IEK=2 

B20A  076 

4049 

II=NETA 

B2  0 A  077 

4050 

GO  TO  324 

B20A  078 

4051 

STAGNATION  POINT  ANO  INITIALIZATION 

B2  0 A  079 

4052 

306  IF  (KR (5) «EQ.3)  GO  TO  307 

ENTR-MOD 

4053 

KR(8)=0 

4054 

ITFF=0 

4  055 

PIEASE=0. 

4  056 

KQ (6)  =  0 

B20A  081 

4  057 

HIP=Z / 1 . 8 

B20A  082 

4059 

MITS=t 

B20A  083 

4  059 

II=NET  A 

B20A  084 

4  060 

V/ H W  (NET A )  =VMWE 

ENTR-MOD 
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4061 

T=3000. 

B20A  085 

4062 

WM=20. 

B20A  086 

4063 

AA=P*HM 

B20A  087 

4064 

DO  305  1*1, IS 

4065 

309  ALP (I ) *TQ <I,i) 

B2  0  A  0  89 

4066 

KRC6>=-1 

B20A  090 

4067 

IP(ITEM-l)  350,300,350 

4060 

300  IF (KKR (2) -2>  311,350,311 

4069 

310  IF(KR(6)>  312,330,330 

. . ™  092 

4070 

311  LEFUP  =  -1 

4071 

IF  <KKR(12)-1)  384,350,384 

4072 

C*****SHOCK  ENTROPY  CALCULATION 

ENTR-MOD 

4073 

307  SA1=Z 

ENTR-HOD 

4074 

KKJ=-1 

ENTR-MOO 

4075 

SVA* ( 1. 3146*RHOINF*UINF*COS (SAD >**2/ 9 0108. 

ENTR-MOO 

4076 

SVB=SVA*2./1.9869 

ENTR-MOO 

4  077 

SVC=tUINF*COS(SAl)) **2/90100. ♦H1NF 

ENTR-MOD 

4070 

SVD*PINF+SVB/ ( 1.3146*RH0INF) 

EKTR-MOO 

4079 

IFtSAl.GT.O.OOODGO  TO  324 

ENTR-MOD 

4000 

P=PTEtl,l> 

ENTR-MOD 

4C81 

T=TCH 

ENTR-MOO 

4082 

60  TO  324 

ENTR-MOO 

4083 

C*****BOUNDARY  LAYER 

B20A  093 

4084 

312  DO  3120  K=NSP,  IS 

ENTR-MOO 

4085 

3120  ALP(K)=0. 

ENTR-MOO 

4086 

LEFUP=HITS+II-2 

4  087 

HIP=Z/1.8 

B20A  096 

4088 

ALP(NSP)=1.0 

02  OA  097 

4089 

IF(NSPMl)  3141,3141,313 

4090 

313  00  314  K=1,NSPM1 

4091 

ALP(K»=SP(1,II,K)/HTM(K) 

B20 A  09F 

4092 

314  ALP(NSPI=ALPCNSP)-SP<1,II,K) 

B20A  100 

4  093 

3141  ALP(NSP)*ALP(NSP»/HTM(NSP> 

4094 

DO  319  1=1, IS 

ENTR-MOO 

4095 

IF (KAT (I) . EQ. 99)  GO  TO  319 

ENTR-MOD 

4096 

ARPH=0 • 

B20A  103 

4097 

ARPHM*  0 • 

B20A  104 

4098 

DO  315  K=1,NSP 

B20A  105 

4  099 

DUM=CIJII,K> *ALP (K ) 

B20A  106 

4100 

ARPHM* AM AXlf ARPHM, A BSfOUM) ) 

B20A  107 

4101 

315  ARPH=ARPH*DUM 

B20 A  108 

4102 

IFCII.EQ. 1. ANO. LEFW ( I) ,EQ. 1. AND. LEF <1 > . LE. 0)  LEF(I)*1 

ENTR-MOD 

4103 

IF  (ARPH-.  0001*ARPHM)  316,316,319 

4104 

316  IF (II.EQ.l.ANO.LEF(I) . EQ.l/  LEF(I>=0 

4105 

LEF II) =-IABS (LEF  Cl) 1 

4106 

LEFS(I)=-IABS(LEFSCI>) 

4107 

319  CONTINUE 

820A  111 

4108 

320  IFIITFF)  326,350,350 

B20A  HZ 

4109 

C*****ACCEPT  RESIDENT  VALUES  AS  FIRST  GUESSES 

B20A  113 

4110 

324  IF(T-TION)  328,398,398 

4111 

326  ITFF*ITFF+1 

B20A  115 

4112 

IF (II- 1)  323,323,322 

4113 

322  IG*1 

4114 

GO  TO  350 

4115 

323  IF  (ITFF)  327,329,329 

4116 

327  IF(KR2-1)  320,329,328 

4117 

329  GO  TO  350 

4118 

328  IF(KATCIS).EQ.99)  LEF { IS) =-IABS  CLEF  CIS) ) 

ENTR-MOO 
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<•119 

IF(LEFUP)  393.364,393 

<•120 

0**  *** 

KAI.L  SOLUTION 

B20A 

118 

<•121 

330 

IEW^l 

B20A 

119 

<•122 

ITFF=-1 

B20A 

120 

<*123 

11=1 

B20A 

122 

<♦124 

CHFLUX=W(3) 

4125 

PIEA3E=PIEASE*0.989*<i.0-EASE» 

4126 

KR(7)=NAX0 (KRC  7) ,KKR ( 16) *5-4) 

4122 

IF<TT<i:/1.8.GT.TF(N*l)>  KR<8>=1 

4128 

IF  (NODE-1)  333,331,333 

B2  0  A 

123 

4129 

331 

TTMIN=TTC1)/1. 8-500. 

4130 

TTMAX=TT<1>,'1.  8 +•500, 

4131 

KR  (8)  =0 

4132 

333 

IF  (KR ( 8) .EQ.l)  CHFLUXs-1. 

4133 

DO  332  K=1,IS 

4134 

IF  (LEF  ( tC) )  332,3331,332 

4135 

3331 

IF(H(2)*TK(K,L2)*CHFLUX*TKiK,L3).LT.0.)  LEF<K>=1 

4136 

332 

ALP(tO=T0(K,L2)*AMINlT0.,Hl2)»*TQ(K,L3)*AMINlC0.,H(3))+TQCK,l)» 

4137 

1 

AMIN1 ( 0. ,H(1) ) 

4138 

WS=-W<1)-W(2>-W<3> 

4139 

WSS=-A  HINl(0.,W(l))-AMINl(C',H(2))-AMINll0.,M(3)) 

4140 

DO  335  L=NSP, I S 

82  0  A 

129 

4141 

DO  334  X=1,IS 

B2  0A 

130 

4142 

GAMK<K,l ) =0. 

B2  0  A 

131 

4143 

334 

G  AMK  <L,K)=0. 

B20A 

132 

4144 

GAMH(L)=0. 

82  OA 

133 

4145 

335 

GAMF<L)=0. 

B20A 

134 

4146 

IF(NSPMl)  3361,3361,3351 

4147 

3351 

DO  336  K=2,NSP 

4148 

GAMHCNSP) =GAMH (NSPI -OQJRNL (2, K) 7HTM  CNSP) *1.8 

B20A 

136 

4149 

GAMF(NSP) =GAMF <NSP> -OQJRNL < 1 , K) /MTM(MSP) 

B20A 

137 

4150 

ALP (NSP >= ALP <NSP>+ WALL J(K-1>/WTM (NSP) 

320  A 

138 

4151 

ALP(K-1»=ALP(<-1)-HALLJU-1)/NTMU-1) 

B20A 

139 

4152 

G AMH  f  K-l) = OQJRNL  C2,K)/WTM(K-1IM.8 

B20  A 

14Q 

4153 

GANF (K-l) =DQJRNL (1 , K) t WTM C K-l) 

820  A 

141 

4154 

DO  336  KK=2, NSP 

820A 

142 

4155 

336 

GAMK(KK-1,NSP) =GAMK(KK-l,NSP)-GAMK(KK-i,K-l> 

B20A 

143 

4156 

3361 

00  3362  K=l, IS 

4157 

DO  3362  J=ISP,N 

4158 

3362 

VLAM» J,K) =WS*WTM(J> *GANF(K) 

4159 

DUH1*NSPH1 

B20A 

144 

4160 

00  340  X=1,NSP 

B20A 

145 

4161 

GAMH(K)=-GAMH(K> 

4162 

SUMG=  0 • 

B20A 

146 

4163 

IF(NSPNl)  3392,3392,3391 

4164 

3391 

DO  339  KK=1,NSP 

4165 

IF  (KK-K)  337,339,337 

B20A 

148 

4166 

337 

SUMG*SUMG+GAMK(KK,  K) 

B20  A 

149 

4167 

339 

CONTINUE 

B20A 

150 

4168 

SUMG=SUMG/0UN1 

B20A 

151 

4169 

ALP<K)*-ALP(<)*SUMG/WTM(K> 

4170 

3392 

DO  338  KK=1,NSP 

4171 

338 

G AMK <KK, Kl =- (GAMKUK.K) -SUNG) /HTNCK) *HTN<KK) 

4172 

DO  340  KK=1,NSP 

B20A 

157 

4173 

00  3401  J=ISP,N 

4174 

3401 

VLAM(J,K)=VLAH(J,K)+GAMK(KK,K»*VNUCJ,KX) 

4175 

340 

GAMK ( <K, K) *GAMK (KK,KI+WTH(KX) *G ANF<  X) *NS 

4176 

Q#  *  » ■»* 

♦RECALL  STORED  VALUES  OF  BOUNDARY  LAYER  SOLUTION  AND 

B20A 

159 
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4177 

C  RE-INITIALIZEO  OMITTED  SPECIES 

B20A 

160 

4178 

350  II=II-IG 

4179 

PIN=1.E-4*P 

4180 

PINL*AL0G(PIN) 

4181 

LIM*N+KRI8) 

4182 

DO  354  I-lyLIM 

4183 

IF(IFC(I)-1)  342,342,341 

B20A 

165 

4184 

341  IFC«I)*IFC(I)-3 

B20A 

166 

4185 

GO  TO  345 

B20A 

167 

4186 

342  IF(IFC d)  +  l)  343,345,345 

B20A 

168 

4187 

343  IFCd) sIFCCIM-3 

B20A 

169 

4188 

345  IF  (IFC(IM  346,349,346 

B20A 

170 

4189 

346  VNd>  =  FRd,IIJ  *P 

4190 

IFC(II=1 

B20A 

172 

4191 

Y(I)=0. 

820  A 

173 

4192 

IF(VNUI)  347,347,354 

B20A 

175 

4193 

347  IFCII)=-1 

B20A 

176 

4194 

IF  d-IS)  348,348,354 

82  0A 

177 

4195 

348  Y<J)=PINL 

B20A 

178 

4196 

GO  TO  3530 

4197 

349  IF  (FR (I, II) 1357,357, 35 2 

B20A 

180 

4198 

357  IF  (VNd) )  351,  351,358 

4199 

358  IF(II-l)  353,351,353 

4200 

351  VN (I) *PIN 

B20A 

183 

4201 

GO  TO  353 

B20  A 

184 

4202 

352  VNd)=FRd,II)*P 

4203 

353  Y (DIALOG (VM(I)  +  l«E-35) 

4204 

3530  IF (II-l)  354,3531,354 

4205 

3531  IFdS-I)  354,3532,3532 

4206 

3532  Y  d)=YHd> 

4207 

IF(FR(I,l)-l.E-30)  354,3533,354 

4208 

3533  VNU>*EXP<Y(I>> 

4209 

354  CONTINUE 

B20A 

187 

4210 

T*TT (II)/1.8 

B20A 

188 

4211 

IF<T.GT.TI0N.0R.KAT(ISI.NE.99)  GO  TO  356 

ENTR-MOO 

4212 

LEF(IS)*-IABSCLEF<IS>» 

ENTR-MOD 

4213 

356  MHxVNWdI) 

4214 

II=II  <IG 

4215 

IF(LEFUP)  384,364,393 

4216 

c*****reevaluate  absent  atcm  ARRAY 

B20A 

193 

4217 

364  JT*HODdTEM,2>  *1 

4218 

00  382  K*l, IS 

ENTR-MOO 

4219 

IEFH(X)*0 

4220 

LEFSC  K)»LEF(IO 

4221 

LEF (K) ®IS  !GN<IEFT(K, JT) , LEF (X) ) 

4222 

IF(lEF(K)-2)  369,365,382 

B20A 

198 

4223 

365  IF  dU- 1)369, 369, 367 

emtr-moo 

4224 

367  IF (KKR (3) )  369,369,382 

4225 

369  4EF(K)>MIN0<LEF(K)  ,0) 

B20  A 

200 

4226 

IF  <KKR(9)-2>  370,  382,381 

4227 

370  OUMl«1.0 

82  0A 

202 

4228 

0UH2>0. 

820A 

203 

4229 

IFINSPM1)  3721,3721,3/01 

4230 

3701  DO  372  >l,NSPKl 

4231 

0UMl®OUNl-SPM(J,ISS,ITT) 

B20A 

205 

4232 

372  OUM2*OUM2<* SPNf J, ISS, ITT)*CIJ(K»J) 

B20A 

206 

4233 

3721  IFUBS(OUMl»-l.E-7)  376,374,374 

4234 

37i»  0UM2«nUM2*0UMl*CIJCX,NSPI 

820A 

208 
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4235 

376 

IF (0UM2)  382,382,380 

B20A 

209 

4236 

380 

LEF  (0  =  1 

4237 

GO  TO  382 

4238 

381 

IF  (W(2)*TK<K,L2)+M(3)*TK(I(,L3)«LT«0*0J  LEFW(K>*1 

4239 

382 

CONTINUE 

820  A 

212 

4240 

GO  TO  393 

82  QA 

213 

4241 

INITIALIZE  SP(,,»  AND  VNO  ON  FIRST  STAGNATION  SOLUTION 

820  A 

214 

4242 

384 

ITFF=-NETA 

820A 

215 

4243 

NCVsO 

82  0  A 

216 

4244 

TT (1>=3000, 

4245 

VMH(l) =£0* 

4246 

KR2=KKR(2) 

4247 

IF(KR2.LT.O)  KR2*1 

4248 

IF(KR2.EQ.l)  GO  TO  387 

4249 

385 

DO  386  K=1,NSP 

4250 

DO  386  1*1 » NET  A 

820A 

220 

4251 

SP  f 1 » I  * K) =ALP <K)*WTM<K) 

820  A 

221 

4252 

SP(2«X»iO«0. 

B20A 

222 

4253 

386 

SP(3,I, K»=0. 

62  0  A 

223 

4254 

H(1)*0. 

4255 

W(2»*0. 

4256 

H(3)=0« 

4257 

DO  3868  1*1, IS 

ENTR- 

MOO 

4258 

IF(KATd) .EQ.99)  GO  TO  3867 

ENTR-MOO 

4259 

LEF(I) *0 

B20A 

226 

4260 

IF  (TK  (1,1))  3868,3868,3867 

82  0  A 

2  27 

4261 

3867 

LEF  II >  =3 

82QA 

228 

4262 

3868 

CONTINUE 

e20A 

229 

4263 

387 

DO  388  1=1, IS 

82  0  A 

230 

4264 

IF  CALP(I) )  393,388,388 

B20A 

231 

4265 

388 

CONTINUE 

B20A 

232 

4266 

00  3881  J=1,N 

4267 

SB ( J) *  0. 

ENTR-MOO 

4268 

H(JJ=0. 

ENTR-MOO 

4269 

00  3881  1*1, NET  A 

ENTR-MOO 

4270 

3881 

FR(J,I)*0. 

4271 

00  392  1*1, IS 

B20  A 

233 

4272 

VN(I)  =  ANAX1<VN(I»/P*.1,ALP<H*AA) 

82  C* 

234 

4273 

IF (IFC (II )  390,391,390 

B20  A 

235 

4274 

390 

IFC(II *1 

B20A 

2* 

4275 

Vd)*0. 

B20A 

237 

<*276 

GO  TO  392 

B20A 

238 

4277 

391 

Y  II  )*ALOG  fVNd  )  1 

820A 

239 

4278 

392 

CONTINUE 

B20A 

240 

4279 

►DELETE  MOLECULES  BASED  ON  A  ESENT  ATOM  ARRAY 

B20A 

241 

4280 

393 

LA MO*  l 

4281 

00  3971  K*l, IS 

4282 

IMLEF<K>>  394,3930,3934 

4283 

3934 

IMPIEASE-.99I  3931,3931,3933 

4284 

3930 

IFlRIEASf-.Oll  394,394,3933 

4285 

3933 

IF  ILEFStM)  3932,394,3931 

4286 

3931 

IF(II-META)  397,1932,39? 

820  A 

244 

4287 

3932 

IF«L€F(K>-1>  394,397,394 

B20A 

245 

4288 

394 

00  396  J*1,M 

■29A 

246 

4289 

IF<IA8S(IFC<J) )  - 1>  389,389,396 

820  A 

247 

4290 

389 

IF (MOO  a  AMI (J) 7LAM0,2) >  395,396,399 

4291 

395 

VN(J>«5. 

4292 

IFC  (J>  * IFC (J) -3 

823A 

250 

146 
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*293 

396 

CONTINUE 

B2QA  251 

<♦294 

J—XRUO 

B20A  253 

4295 

IF(IFC<J>-1>  3961,3961,39? 

B20A  254 

4296 

3961 

IFC(J) *IFC (J)  *6 

B20A  255 

429? 

397 

l AMD*L AHO+LAHO 

4298 

LEFCK>*IA8SILEFCK>> 

4299 

3971 

LEFSfX!*XABS(LEFS(Kil 

4300 

* DELETE  CONDENSED  SPECIES  FROM  BOUNDARY  LAVER 

4301 

IFIKR16) )  3980,398,398 

4302 

3980 

DO  3984  >i,N 

4303 

IFIZASS (2FC(JI  >  — 13  3984,3981,3984 

4304 

3981 

IFCCJ)«IFC(J)-3 

4305 

VN(J)>0. 

4306 

3984 

CONTINUE 

430? 

398 

IF(KRC7)-l>  21,21,1902 

B20 A  258 

4338 

EVALUATE  PROPERTIES 

620  A  259 

4309 

170 

CPF-CPF/AA 

4310 

IF  (KR(5) .EO.3)  GO  TO  19 

ENTR-HOO 

4311 

HG«0. 

ENTR-HOO 

4312 

ML»0. 

ENTR-HOO 

4313 

WTL-0. 

ENTR-NOO 

4314 

SIP*0. 

ENTR-HOO 

4315 

00  1703  J-1,N 

ENTR-NOO 

4316 

SIP*SIP*VN (J)  *  ($B( J) -1 » 1869*Y ( J> ) 

ENTR-NOO 

4317 

IFlIFCUn  1703,1704,1705 

ENTR-NOO 

4318 

17  04 

MC*MG4VN1J)*N( J) 

ENTR-HOO 

4319 

GO  TO  1703 

ENTR-NOO 

4320 

1705 

HL*HL4VNU1*H(J) 

ENTR-NOO 

4321 

MTL«MTL4VN(J)*NTNU) 

ENTR-NOO 

4322 

1703 

CONTINUE 

ENTR-HOD 

4323 

SIP»SIP?AA 

ENTR-NOO 

4324 

HIP*<HG»HU/AA 

ENTR-NOO 

4125 

IF (KR<6) )  1701,1932,1702 

4  326 

1702 

R¥-R¥S* (RV-RVS ) /EA  SE 

ENTR-NOO 

432? 

IF (KRI I) . GT. 0)  N(3)*H(3)-¥N(N4lt/AA 

4328 

NS— N(lt-N(2>-N<3)  ♦l.E-lfl 

4329 

HIPMMCMHL-¥TL/AA*NC>/NS>/AA 

4;$30 

GO  TO  1932 

4331 

1781 

IN»IS*2 

4332 

IG-Mlt,0tIOQ,-KKR<29>  J 

4333 

CALL  RCRAYtlN, A , 8,8,8,8,16,16) 

B28A  263 

4334 

ALF»*<2,ii/A(l,l> 

8204  2 <5 

4335 

CSP«l./CACl,l»*AA» 

820 A  264 

43% 

BET*-P*<A(2,2>-Afl,*>«AlF)  -1. 

828*  247 

433? 

IF  <HOOE-3>  1931,1932,1931 

§1 BA  248 

4338 

1931 

CSP-CSP/T 

*20*  269 

4339 

1932 

CALL  PROPS 

820*  278 

4340 

NH* IA/P 

4341 

CAH-l.-ALF 

4342 

CAN* 1. /Ti.-lfTH-t. 9069/ AA* CAN/C SP*CAN*P> 

4343 

CNR (III -CAN 

4  344 

ir<KR(5>> 195, 195,194 

828*  27f 

4345 

195 

IF»*Rf?>>  11,11,194 

820*  272 

4  344 

194 

URITC  C It  OUT, 41  CPE,CSR,ALF,»CTN,CAM 

4347 

ITS— l 

820*  276 

434* 

£••••♦ 

►output  packacc 

820*  277 

4349 

19 

WH-AA/P 

6204  270 

4359 

1962 

HRITEttfOUT,  2>T,P,NH 

820A  279 

117 


AFWl-TR-69-114,  Vol  I  (Supp.) 


4351 

WRITE ( KOUT, 190 D  W 

820A 

288 

<•352 

1901  FORMAT (5X40HRELAT1 VE  MASSES  OF  COMPONENTS  i,2  ANO  3  3E12.5) 

820* 

201 

<•353 

SHIP-MI? 

22  OA 

202 

<•354 

SSIP-SIP 

820  A 

203 

4355 

MlP-0. 

820A 

204 

4  356 

SIP-0. 

820A 

205 

4357 

4358 

00  20  J-l.N 

MIP»MIP*HCJ)*SIGNCVNCJ>  ,  WTMIJ)) 

820  A 

206 

4359 

4360 

20  SIP-SIP*  VN<J>M$BU)-1.9869*YCJ)) 

N-N+KR ( 8) 

820A 

208 

4361 

hIP-<MIP*»NIHELT)-FLIQ*MHELT)/AA 

B20A 

209 

4362 

SIP«CSIP4VN(NEI.TI*FLIQ*SNELT>/AA 

820  A 

290 

4363 

RMR-P/ T-NN/1. 3 146 

C20A 

291 

4364 

WRITE IKOUT .8)  MIP.SIP.PWR 

820  A 

292 

4363 

IF(FLIO)  204,205,204 

82  OA 

293 

4366 

206  WRITE* KOUT, 10)  FlIQ 

820  A 

294 

4367 

205  IFIITS)  2051,203,203 

B20A 

295 

4368 

2051  IF(KR<5)-1>  283,202,201 

B20A 

296 

4369 

201  IF  CKR C 5) .EQ.2) GO  TO  200 

EWTR-MOO 

4370 

Z-SIP 

CNTR- 

MOO 

4371 

GO  TO  203 

EWTR- 

MOO 

4372 

208  MCH'HIP 

EWTR- 

MOO 

4373 

TCH-T 

EWTR-MOO 

4374 

SREF-SIP 

EWTR-MOO 

4375 

202  VELSQ-  OCM-MIPI -2. 

020* 

298 

4376 

VMACM- SQPT  <mSQ/G  AM* MM/  ( 1 . 9849*T>  1 

820  A 

299 

4377 

VEl-SQRT (VELSQ*450$4.) 

82  OA 

300 

4378 

U£(rS!)*WEl 

B20A 

301 

4379 

4380 

4381 

4382 

4383 

4384 

4385 

HEA<ISS)*1. 8-HIP 

IF  (VEU  2021,2021,2022 

3421  ARE*=0. 

GO  TO  2623 

2022  AREA-1. /(WEL-RMR) 

2023  WRITE  < KOUT ,9)  VEL, VMACM, ARE A 

203  IfflOQ)  2036.1203,1203 

ewtr-mod 

4386 

1203  IF  (ITS)  2031,2036,  2036 

820* 

305 

4387 

2031  00  2033  1*1, M 

8204 

386 

4  J  88 

2033  VM(i: * VNtI)/P 

126* 

387 

4389 

WRITE  :  KOUT,  2032)  (F  A  MO  A  tX),F*MOf(D  , VM( I) ,I«i ,N) 

•  20* 

388 

4390 

00  2035  1-1, N 

•20* 

389 

4391 

2035  VMI I)-VMD*P 

8201 

318 

4392 

IF(HOOC-l)  2034,2037,2034 

•  28* 

311 

4393 

2037  WRITE (ROUT ,2038)  / AMO A  (  JC  ) , F*H08( JC) 

•20* 

312 

4  394 

2938  FORMAT (22*  SURFACE  SPECIES  IS  2861 

•  20A 

313 

4395 

2832  FCRKAT</3(SX7MSRCeiCS3X8MMCLE  FR. 211/ (5*2*4, £17.5,5*2*4, El  2. 5, 5X2*020* 

314 

4396 

14, E 12. 5) > 

879A 

315 

4397 

GO  TO  2834 

020* 

316 

4398 

2036  WRITE (KOUT, 3)  (FAMOA(I) ,FAPC«<!) ,YM(7> ,OT 1 I ) ,T (I ) , VlMKtl) , IFtt I) 

,E  878A 

317 

4399 

l(X),CPtt>,I-l,N) 

823* 

318 

4%80 

4481 

2834  WR I TE ( KOUT ,6) 

W«K-KR 18) 

828* 

328 

4402 

IF  1  ITS}  11,1821,  1821 

873* 

721 

4483 

1021  -tr^smir 

82  7* 

J2i 

4494 

SIR-SSI? 

82;* 

323 

4485 

C-— • PR I KC I —At  TTCRATIVC  tOOP 

828* 

32% 

44  96 

21  IF  (ITS)  199,113,199 

828* 

325 

4  40  7 

44  09 

184  tr  (-OOC)  ttl. 111,119 

1391  !T$«tTS*l 

•28* 

328 

1C 
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4409 

<•*.10 

4411 

•*912 

44x3 

44*4 

4M9 

4416 

4417 
4416 

4419 

4420 

4421 

4422 
4421 
4424 
4429 

4426 

4427 
4426 

4429 

4430 

4431 

4432 

4433 

4434 
4439 

4436 

4437 
4436 

4439 

4440 

4441 

4442 

4443 

4444 
444$ 

4446 

4447 
4446 
4449 
4490 
46*1 
4492 
46*3 
44*4 
44f* 
44*6 
44*7 
44*6 
44*9 
446« 
4461 
4662 

4463 

4464 
446* 
6466 


110  CAU  THERM 

111  MOOE-XRU) 

IQO*0 

FLIO»0« 

CALL  NATCH 
ll'lll) 

211  MOE»l 

IF  1W  171*1)  2191,216,2112 
2102  100—2 

MRITC<KOUT»2106HX,X*1,XS) 

210  NRITCCK0UT,7>  ITS,T, A*,|L, E*L,CMF, «fll) ,I*i.IS) 

2109  FORNAT  (SOHlXTS  TEHR  PRCS*MMT  EQUXL  ER  MASBAl  ER  SCALE 
17H  MASBAL 1/99X3 <13, PM  MASBAL) I  * 

2161  IF (ITS)  2l03»22l»221 
2103  IF (MOOE-i)  170, 2104,171 
2106  TNALC*T 
CO  TO  170 

221  XT$«XTS*1 

IF (XTS»90)  2219,2219 ,222 
2219  IFUTS-N7)  22  2222,2222 

222  IF(KKR(1*M  2226,2226, 2229 
2229  MRXTC (KOUT,2600) 

2000  FORMAT  (///?X,9|M*> - FOLLOkXNC  OUTPUT  MON-CCMVfRCFNT------ 

mi  ra  »SS*:S£I!  ***.!»«*.«  •  .xws.w.  t«  .tnr.  mo.  tt  c  1 1 : 

RRITEIICOUT, 36191  LfP 

HR1 TF (  KOUT, 36161  (FR(  I, III  ,I»1,||» 

3017  FORMAT  <7I9,W1F3C12.9» 

3616  FORMAT (2XiRiaCll. 4) 

3019  FORMAT (2X1619) 

100—2 
KR(7»«l 
2224  ITS— 1 

NCtf*NCV»l 

MOtt-NCV 

IF (MCV-26)  176,170,2220 
2220  MITS*160 
CO  TO  170 
2222  *«</)- 3 
IOQ— 2 
CO  TO  22 
22  ISPQ*Xi«*U-l 

ICTwJO 

0UM1«6, 


B20A  327 
E20A  320 

02OA  329 
B20A  331 
B20A  332 
820*  333 
820A  334 
B20A  539 


7113, 


B20A  337 
820*  336 
820*  239 
820*  340 
820*  341 


/LEF(I) 


■820*  344 


020*  399 
8204  3*2 

020 A  393 

8204  99* 


6204  3*6 


60  220*  I»  1,1580 

226* 

CO  TO  22 06 

22*2  00  22661*11, XSPQ 
2266  »(1>*»S(X) 

2266  00  2264  1*1, XSPQ 
00  2266  ^*1,1180 
2266  APf  <IfJI»4(I,j) 

IFU-21  2264,2264,2261 

2261  IF (IFC (I-2I-1)  2264,22*4,2267 

2262  (U)*6. 

00  2263  J»1,IS*0 


*266  397 
•26A  396 
•26*  399 
•266  366 
*26*  361 
926*  362 
•26*  363 
•266  364 
•26*  36* 
•26*  366 
926*  367 
*28*  366 


i* 
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4  <.67 

APEU, 11*0. 

4«*m 

2203 

APEU,  J»*0. 

820  A 

369 

4469 

APE(7»I>-1.0 

820A 

3?0 

4470 

2204 

CONTINUE 

B20A 

37i 

4471 

IG*IOO 

4472 

CALI  PEN AT (IN, AP£(lL,Il),0,ldL),l,0,7C,16) 

820A 

373 

447] 

ICT-ICT-1 

4474 

If  CICT-I0Q)  222t 2209*2210 

4*.  75 

2209 

IOQ—2 

4476 

2210 

If  ( 161  2212*2221*2221 

4477 

22 12 

IfdNVl  2216,2219,222 

* 

4476 

2213 

If («(R(6>  1  2227,2230*2290 

4479 

2230 

LANO*l 

4460 

00  2229  Ml, IS 

4461 

J*-IR(K> 

4462 

If (IfCU).GT.l)  CC  TO  2229 

4463 

00  2226  J*1,N 

4464 

If  <WN«J).6T.l.E-30  .ANO.  HODUANI<J>/LANO,  2)  .NE.  0> 

GO  TO  2229 

446$ 

2226 

CONTINUE 

4466 

LCf  IKl«-IAtS«LCf  (KM 

4497 

LEf N ( K I *  - 1 A8S (LEfM(KI) 

4<.66 

INV*-1 

4489 

ITS*1 

4490 

CO  TO  393 

4491 

2229 

tAHC  .AN04LAHO 

4492 

2227 

inv3“1 

4493 

PIN*P* 1.2*5 

4494 

00  221$  1*1, N 

4495 

IFlIfCCIll  2215,2214,2215 

4496 

2214 

VNf !)*¥NIII*PIN 

4497 

Yd»*ALOG(VN(I)> 

4496 

2215 

CONTINUE 

4499 

GO  TO  til 

4$00 

2216 

1 7  (  KR  C  6 ) )  2217,222,222 

4501 

2217 

ITS*999 

4582 

CO  TO  111 

4503 

;«**•« 

‘IF  TRYING  TO  PUSN  THROUGH  TRIN  OR  THAI  —  Rf INVERT 

AND  DT  TO  ZERO 

820  A 

374 

45  04 

2221 

IF  IT-THIHl  2223,227,220 

4505 

2223 

T*  TWIN 

4516 

GO  TO  1691 

650/ 

22? 

IF  lk(D)  226,226,226 

6506 

228 

IF  (T- THAI)  223,229,2226 

4589 

2226 

T*THA> 

4510 

GO  TO  1691 

4511 

229 

IFIXlH  223,223,228 

•26A 

376 

451? 

C*****IF  MfW  CONDENSED  HAS  MIC  CORRECTION,  DELETE  4772# 

REINVENT 

8204 

379 

4513 

223 

IF  HER!  226,212,226 

828A 

366 

4516 

226 

IF  t It  I ER> •l.l-Nl  225,212,212 

82  6  A 

361 

4515 

225 

00  2252  I*1,ISP0 

4516 

AdfR,  I»*6. 

451? 

7252 

Ad,  If  Rt  *  6. 

6511 

8S(IER»  — t.f-6 

6514 

A  (IfR,  I ER > *  1.  6 

4523 

CO  TO  2?87 

82  J  A 

366 

4521 

S.(.  E**OR  AMO  C08RECTIC6  O*  f  67  CONFLICTING  SIGN, REINVENT 

823  A 

365 

6522 

212 

IMHOflE-11  224,213,226 

626  A 

366 

6523 

’13 

IF(tlll*fl*. 66681)  226,216,216 

4526 

C S.C.  17  DCU*  LN  7  .67.  .9  «I7«8T  NO  C7  17  ft 

AM  CHL  ARE  $711211 

3*i 

150 
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4525  219  IFUBS(XH)H. 9)224, 224,222 

4926  C*****IF  CONVERGED  EXCEPT  FOR  T  ON  M  OR  S  OPTIONS  —  NON  CONVERGENT  820*  393 

4527  228  IF(NOOE-l)  2291,214,2290  820*  399 

452#  2288  IF (£1*190. *ENL*l.E-6)  222.222,2281  820*  399 

*529  £••••• ON  S.E.  OPTION  RESULTXN  IN  CONFLICTING  ERROR/ CORRECT ION  OR  T  '-OSH  820*  396 

4538  C**»**IF  OTHER  8ALANCES  RELATIVELY  MOO,  SET  T  VO  TNIN/TNAX  AS  PER  CRRORB20*  39? 

4531  C**»**ANO  GO  TO  TNERN  (IF  T  ALREADY  THERE  -  KONCOAVERGE)  ELSE  OT  TC  ZERO 820 A  398 

4532  214  IF(AtS(81)>108.MEL*ENL))  2281,215,219  820*  399 

4533  215  TTHlN>TT(lt/1.8-f8t. 

4534  TTNAX-TTNIN41000. 

45J5  IF (811  216,216,217 

4536  216  IF(T-TNIN)  170,179,2161  820*  401 

4537  2x61  T«AHAX1(T-OTO,THIH> 

4538  TTNAX«T 

4539  0TO-0TO/2. 

4540  GO  TO  1991 

4541  217  IF (T«THAX>  2171, 179,170 

4542  2171  TaANlNl(THAX,T»OTU) 

4543  TTNINaT 

4544  0TD»OTU/2. 

4545  GO  TO  1091 

4546  2261  X ( 11*9 •  820*  407 

4547  NOQE* 0  820*  408 

4548  IN* IN- 1  820*  411 

4549  IL*2  820*  412 

4550  GO  TO  2207  B28A  413 

4551  224  IF (X(2)*l. 9> 2240,2249, 2249 

4552  2240  BS(2)*0. 

4353  A(2,2)«1.C25 

4554  GO  TO  2267 

4555  2249  CALL  CRfCT  (ttOE) 

4558  THIN*TTNIN 

4557  THAI«TTNAX 

4550  IF (KR(7)-1)  21,21,19  820A  41* 

4559  11  PIE*SE*SPEASt 

4560  RETURN 

4561  END  820*  417 

4562  CB21A  821*  001 

4563  SUBROUTINE  THfRN  121*  082 

4564  01  HE  NS  I  OH  CIJC  7l,l*,TF(U  621*  383 

4565  E QUX VALENCE (TU (  721 ,TF) , (VRU.CI3)  821*  984 

4544  COMMON  /8LQC0M/FAH0* (  7t),F*N08t  7*1, N  ,FR(  7| ,»*) , N 13 1 ,LEF ( 111  821*  5 

4547  1  ,LEFS < 191 ,PIE ASE.LEFM t 18! ,L2,L3  CRTR-HOO 

4548  COMMON  /fQPCON/  R8(  7l.2t.RCI  71,21, RO(  7l.21,Rf(  ?1,21,RF(  7|,2), 821*  7 

4569  t  TU<  71,2), FF<  71),FF*,IFC(  71 1 ,*T«<181 ,*T8 ( 181 ,*TCf 191  ,M*T(10t ,  821*  8 

4570  2  R*T(1«1, IR(1«1, IS, «»(18>, L*RI(  71* ,P,T,T*  (1§,  71,V*H7l>,  821*  9 

4571  3  VNU(  71,19), ITFF,KR2,NCM,NCV, MM, NTRI  Tp.Yf  7l),YR(  7|1,66(  7)1  821*  19 

4572  4  , TOt if,  7) .EPOVRR, SIGMA, BA iNOL  821*  11 

4573  COMMOM  /t«TOQM/SIP, NIP, IV, f«L,FLI«,CPF,XRf  ,UR, *»,  ITS,  IN,  IL,  IT  ,  821*  It 

4574  1  HOOf,  HMfLT, SMELT,  THAI,  TNI  M, KELT, SUMM,  SUML  ,  VS,  MSS,8i,!SP*,  1SPQ,  821*  IS 

4575  2  ISP,RKJ,SVA,SV*,SVC,SVO,SWIC,FFF,CMF,tP,*»,IFCJC,RTG,»rTL,JC,HG,  821*  14 

45  76  3  CPG,TTN1N,TTN*I,L7,L6, 1»(ll»  •  Cit  18)  ,C8t  (18)  ,  A(t«,|6), 8(16),  fRTR-*00 

4577  4  IP(  7*1 , A*P( 101 ,FMU( 1 8) ,C  A*M  (19) ,GAMF (It) ,SL*H( 19) »8Y (  711,1(1,  021*  1G 

4570  5  CPt  71),  mi  Til,  SBt  7| )  ,TC  I  7l»,VLNK(  F|),E(  71)  .PKUSdO)  ,  821*  17 

4579  4  BC(!0),6LMK(10),6T(1«),X8C(18),B€(!9),'U(  4)  821*  19 

4500  COMMON/ INI COM/  KZ8(29) »  *IN» (OUT 

4501  5  HOOE-XRd)  28 

4502  IF  (X  IS)  50,10,50  30 
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4503 

4504 
‘.585 
4506 
450? 
45l| 
4509 
•.59# 

4591 

4592 

4593 

4594 

4595 
4595 
4597 
4595 

4599 

4500 

4501 

4502 

4603 

4604 

4605 
4605 
4607 

4600 

4609 

4610 

4611 

4612 

4613 

4614 

4615 

4616 

4617 
4610 


46J9 

*620 

4621 

4622 

4623 

4624 

105 

4625 

4426 

4627 

110 

4620 

4624 

4638 

115 

4631 

4632 

120 

4633 

125 

46J4 

130 

4635 

135 

4636 

140 

4637 

4630 

4034 

145 

4443 

150 

MTC*9. 

*U*0, 

17  f**(0>»  40,40,15 
If  <IfC(M4l)-n  25 ,20,25 

VM IM»1 | »0, 

00  35  Ml, IS 
35  VMUIN«l,Kl»-TQU ,LJ| 

0UM2* | , 

SU4M»0. 

00  45  1*1, |S 

SUM<D*0. 

H«CLT.». 

7LIO»0. 

SHCLT.0. 

«CLT»1 

TH»*-TTMA« 

T7H0X*500. 

VA*ALO6lT/3»00.) 

VO.T-3000. 

VC* (1*3009.) /?. 

VO»7*JO00. 

V£*vc/ (VO* VO) 

*f*l.S049*T 

1*1 

00  235  IK»1,M 
J*2 

17  ltFC(l)«l)  165,05,05 

Jr  !lfCltn  *••**•!*• 

If  tHOOC-ll  165,160,165 
If  <ITS»  165,100,165 
SunN*SUNN«VN(I ) 
ouMi*«Tnm*vNm 
MTC*MTC»0UN1 
ou«2^ou»»2+oo«i  nr  <  i  > 

Y< *>**tccn 

If  U6-IS)  105,  105,  110 

SL6nm*vM(i>/ff  u) 

60  TO  165 
00  115  «*t,IS 
0U*1*W*U«I,K>**IM|I 
f  HUS  (  *  )  »Pt*J5 1 *  )  ,  QUH 1 
SLAM  1}  to  *0U*»i/f  f  it  ) 

60  TO  145 

If  <ffCCII-l»  125,125,165 
If  UTS)  15«,13S,150 
If  t*«N4>)  145,135,135 
5MI:Tr<n**,,U  140,  140,  1 4$ 
VN<7,»0. 

60  TO  ft 

MTt,*»n.  «**U>«KTl*,‘I  » 

If  I«»03f-1)  145,155,165 


31 

32 

33 

34 

35 

36 

37 
30 

40 

41 

42 

43 
46 

45 

46 

47 
40 

49 

50 

51 

52 

53 

54 

55 

56 

57 
50 
66 
67 
60 
74 
7? 

76 

’7 

70 

79 

00 

01 

•2 

0? 

04 

05 

06 

07 

00 

09 

43 
41 
52 
93 
«•  % 

95 

96 

97 
4* 

44 
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*6*1 

155 

TRIR*AHAX1<THIR, TF  fill 

100 

*6*2 

160 

TFRAX*  AHAXKTFI  X) ,  TFRAX) 

101 

*6*3 

165 

IF  CT-ABS(TUII,1>>>  170,179*175 

102 

*64* 

170 

>1 

103 

*6*9 

175 

10* 

*6*6 

j>*ys»tftc<!,j>»fto<i,  j>  •*(:♦«  ii  ,j)  /vo> 

105 

*6*2 

SO<I)*RFII,J>*RCtI,J>*VA*VO**RO«I,JI*Re<X,.n*VE> 

106 

*6*6 

IF  f*00C>2)  219,100,160 

107 

*6*9 

100 

IF  <IfC(X>*l>  210, 109, 210 

100 

*696 

165 

IF  (TUf 1,1)1  190*210,210 

105 

*691 

190 

IF  IT*TUCI,1>>  200,199,205 

1)0 

*692 

199 

HRCLT*-NlI)-MHfLf 

111 

*693 

SR£LT«-SBUI-SR£t.T 

112 

*69* 

RfLT*I 

113 

*699 

IF  W- 2)  210,170,216 

11* 

*696 

200 

THAX*AHXN1<TRAX,-TU<X,1I) 

115 

*657 

CO  TO  210 

116 

*6S« 

205 

TRXR»AHAXi ITRIR,-TU (X, 1)1 

117 

*659 

210 

TCII)  —  R<II/RT 

110 

*660 

VLNK< I >*TCCI> ♦SBC!)/ 1.9069 

119 

*66l 

IF  CIK-IS)  215,215,220 

120 

*662 

215 

BLRKf I)*VLNK(X) 

121 

*663 

X0C<I)*IFC(Ii 

1 22 

*66* 

oca»«Tcm 

123 

*665 

CO  TO  235 

12* 

*i.:64 

220 

OO  230  K»l,IS 

125 

*667 

If  UBC(K)*i>  230,225,225 

126 

*660 

225 

VLMK1I»*VINKII)~VNUU,K)  *Ol*X«> 

127 

*669 

TCC1) *TCC II-VRU ( X, K) *§C (K  > 

120 

*670 

230 

CONTINUE 

129 

*67J 

235 

I*I*1 

130 

*67? 

IF  CNOOC-1)  250,7*0,250 

132 

*673 

2*0 

IF  CTFRAX-T)  2*5,290,250 

133 

*67* 

2*5 

T-TFRAX 

13* 

*675 

IMT-560.)  2*0, 2*0, 5 

*676 

2*0 

NOI TC  C  KOUT ,  2*9 ) 

*677 

ST  Or 

*670 

2*9 

FORHAT (///JAM  NO  AVAILABLE  SURFACE  SFECIES.  .  .STOP) 

*675 

250 

IF  IITSI  305,255,305 

136 

*661 

255 

•AsP*NN 

137 

*661 

365 

SUNN* 1URN/F 

100 

*607 

S'JNf»L06<SUNN) 

sot 

*663 

FFF-MTC/OUN2 

102 

*60* 

mtontc/sunm 

103 

*669 

MTL-MU./SUNH 

1A* 

*666 

SUNCM.O 

*€•7 

JF(KR<6))  305,369,309 

*666 

369 

OO  379  1*1, IS 

*609 

ONUS *1 > *FRUS t I) 7 SUNN 

106 

*690 

3?l 

SL AM ( I) *SL AN ( I I / SUNN«F FF 

107 

*691 

375 

IF  WU/WTC-IIS)  305, 305, 300 

191 

*697 

360 

SUNC-WTl /  («TC*irS) 

192 

*693 

»Tl*»TL/SUNC 

193 

*69* 

39$ 

return 

19* 

*69$ 

£NO 

195- 

*696 

c»m 

022 •  001 

*697 

SUORO  t'T  INC  NATCR 

•22A  007 

*696 

DIMENSION  VLAHt  7|, H,  1(16) 

022A  0R5 
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4699 

EQUIVALENCES*  (  74>,VLAM) 

322A 

006 

4709 

DIMENSION  CIJC  7i,l),TF(l) 

B22A 

007 

4701 

DIMENSION  ECO  (  71) 

B22A 

008 

4702 

EQUIVALENCE(TU(  72) ,TF) , (VNU.CIJ) 

822A 

0  09 

4703 

COMMON  /8LQC0M/FAM0A (  7l),FAM0B(  7i),N  ,FR(  71, 15),  W<3> , LEF *10) B22A 

10 

4704 

1  ,LEFS(10),PIEASEtLEFW(10»  ,12.13 

EN  iR- 

MOO 

4705 

COMMON/BUHCOM/  BUMP , CORN  A, EASE,  ICORM,WDOT , TFZ, 1777,  OTEHP, KIP, IX B22A 

12 

4706 

COMMON  /EQPCOM/  RB (  7l,2),RC<  71,2),RD(  71,2),RE<  7l,2),RF<  71,2), 

B22A 

13 

4707 

1  TU  <  71,2)  ,FF  C  7l),FFA,IFC<  ?1)  ,ATA  (10)  ,AT8  (10)  ,  ATC<  10)  ,M  AT  t 10) . 

B22A 

14 

4708 

2  KATI10),IR*10> ,IS,KR(10),LAMIC  71) , P, T, TK (10 ,  7>,VN<  71), 

B22A 

15 

4709 

3  VNU<  71,10),ITFF,KR2,HCH,NCV,WM,HTMC  71), Y<  7i),YW(  71),GG(  71) 

B22A 

16 

4710 

4  ,TQ( 1 0 ,  7) ,£POVRK » SIGMA , BASMOL 

B22  A 

17 

4711 

COMMON  /EQTCOM/SIP,HIP,El,£M,FLIQ,CPF,IRE,IER,AA,ITS,  IN,  IL,IT, 

B22A 

18 

4712 

1  M OO E,HM£LT, SMELT,  TMAX,TMIN,M£LT,StJMN,  SUML ,WS»WSS»B1*ISP2»ISPQ, 

B22  A 

19 

4713 

2  ISP,KKJ,SVA,SVB,SVC,SVO,SUMC,FFF,CMF,EP,RV,IFCJC,WTG,HTL, JC,MG, 

B22A 

20 

4714 

3  CPG, TTMIN,TTMA X,L7, L8 , IB( 11) , EB tlO ) , E8L < 10) , A (16, 16) , B (1 6) , 

entr-hod 

4715 

4  IP(  7l),ALP(10),FNU(10),GAMH(10),GAMF(in>,SLAM(10),OY(  71),RVS, 

B22A 

22 

4716 

5  CP(  71), HC  71 ) , SB l  71),TC<  71),VLNK(  71), EC  71) ,PNUS(10)  , 

B22A 

23 

4717 

6  BC(10) , BLNK(IO) ,8Y(10),IBC(10),BE(10) , JJ(  4) 

B22L 

24 

4718 

COMMON, , <INCOM/MT,FKFrO),E AX f  10>,EXK ( 1 0)  ,PMU (10,10), RMUd 0,10)  , 

B22A 

25 

4719 

1  DKPT(10),PKP(10),PKR(10),RAT(10),RSIG(10) ,MA C 10) ,LL (10) , PMR ( l 0) , 

B22A 

26 

4720 

2  PRMU(  10,10) , EESEdO) 

B22A 

27 

4721 

COMMON/NONCOM/ AM (153 , 153) , OVNL (153) ,TCW, 

B22A 

28 

472? 

i VLNKM, OLPH I  9),DLPK(  8,  9) , OTHH,DTKW(  8),FLUXJB(  9) 

B?2A 

29 

4723 

COMMON/lNTCOM/Ki<R<2  0)  , KIN,KCUT 

4724 

EQUIVALENCE(B,  X) 

B22  A 

021 

4725 

W3S=WS 

28 

4726 

DO  5  1=1, IS 

29 

4727 

5 

IBC (I) =IFC(I) 

30 

4728 

Ir(KR(6))  40,20,20 

4729 

20 

IF  (ITS)  2 -->,40 , 40 

36 

4730 

25 

00  35  1=1, IS 

37 

4731 

IF  (IBC(I)-J)  35,30,35 

38 

4732 

30 

IBC  (I) =-l 

39 

4  733 

35 

CONTINUE 

40 

4734 

40 

RV=WSJ-WTL/HTG 

43 

4735 

IF(ITS.EQ.Q)  RVS  =RV 

4736 

IF  OCR  (7)  -1)  70,45,50 

42 

4737 

45 

IF  (ITS)  70,60,70 

43 

4738 

50 

WRITE  (KOUT,55)  FFF , WTL , WT G  ,  A A,RV, AuP , PNUS ,SL AM 

44 

4739 

55 

F CRM AT  (32H  FFF,  WTL  ,  WTG,  A  A ,  RV/ ALP7PNUS/SL  AM71  X5E12.5/UX1 0E12. 5)  ) 

45 

4740 

KR (7) =KR (7) -1 

46 

4741 

IF  (KR  (7) -1)  70,60,70 

47 

47  42 

60 

WRITE  !KOUT,65)  (I, 1=1, IS) 

48 

4743 

65 

FORMAT  (50H1ITS  TEMP  PRE j’MWT  EQUIL  ER  MASBAL  ER  SCALE  7(13 

, 

45 

4744 

17H  MASBAL )  790X  3  ( 13 »  7H  MASBAD) 

50 

4  745 

C 

INITIALIZE 

51 

4746 

70 

EL=0. 

52 

4747 

CPG=0. 

53 

4748 

EP=P 

54 

474a 

CPF=0. 

55 

4750 

JC=0 

^6 

4751 

JCS=0 

57 

4752 

ISP=IS+1 

4753 

ISPQ=ISr2 

5  8 

4754 

B(1)=0. 

59 

4755 

B  <  2)  =  0  . 

60 

4756 

A<1,1)=0. 

61 
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4757 

A<1,2)*0. 

62 

4758 

AC2,1)  =  0. 

63 

4759 

A(2,2)=0. 

64 

4760 

C 

- INITIALIZE  CONTRIBUTION  OF  HOST  SIGNIFICANT  SPECIES  IN  EACH  M 

65 

4761 

00  75  1=1, IS 

66 

4  762 

EB<I)=0. 

67 

4763 

75 

ECI)*AA*ALPII) 

68 

4764 

ISP2=ISPQ 

69 

4765 

C 

-  MAIN  BASE  SPECIES  LOOP 

70 

4766 

DO  325  IK=1,1S 

71 

4767 

1=2- IR  < I K  > 

72 

4768 

IF  CKAT (IK)-99)  85,80,  85 

73 

4  769 

80 

PNUS(I-2)=0. 

74 

4770 

C 

ZERO  MATRIX 

75 

4771 

85 

DO  90  K=1,ISPQ 

76 

4772 

90 

A (K, I) =0. 

77 

4773 

IF  (ITS)  110,95,110 

78 

4774 

C 

NORMALIZE  ON  PRESSURE  ON  FIRST  PASS 

79 

4775 

4776 

VN (1-2) =VN (1-2) /SUNN 

ECO(I-2)=fl.-EASE)  *YCI-2) 

80 

4777 

EBL(I-2)=0. 

81 

4778 

IF  (IBC(I-2>)  110,100,105 

82 

4  779 

100 

Y(I-2)=Y(I-2)-SUML 

83 

4780 

GO  TO  110 

84 

4781 

105 

VN(I-2)=VN(I-2)/SUHC 

85 

4782 

C 

INITIALIZE  SOME  MORE 

86 

4783 

110 

B  ( I)=0 • 

87 

4784 

A ( I, 1) =0* 

88 

4785 

IP(I-2)-0. 

89 

4786 

C 

SET  FLAG  INDICATING  SIGNIFICANCE  OF  SPECIES  IN  NASS 

90 

4787 

C 

BALANCE (S)  ANO  INCREMENT  COUNT  ON  SIGNIFICANT  SPECIES 

91 

4788 

IF  (VN (I-2)~£BL (1-2) )  120,120,115 

92 

4789 

115 

IP(I-  «)=-l 

93 

4790 

C 

TREAT  BASE  SPECIES  CONTAINING  BUT  NOT  REPRESENTING  NON-PRESENT 

94 

4791 

C 

ELEMENTS  IN  SAME  MANNER  AS  NON-PRESENT  CONDENSED  SPECIES 

95 

4792 

120 

IF  (IBC(I-2)+l)  325,125,125 

96 

4793 

125 

IF  (I0CU-2))  180,215,130 

97 

4794 

130 

A(I,I)*1. 

98 

4795 

VA=VN(I-2) 

99 

4796 

IF  (IA8S(IBC(I-2)-3)-l)  135,280,140 

100 

4797 

135 

A (2,1) =  1«  0 

101 

4798 

GO  TO  280 

102 

4799 

140 

IF  <EB(I-2)-ABS(VA>)  145,150,150 

103 

4800 

145 

EB (1-2) =A8S( VA ) 

104 

4801 

IB(I-2)=I-2 

105 

4802 

150 

E  tI-2) =E(I-2)-VA 

106 

4803 

IF  (KR(6) )  155,160,160 

107 

4804 

155 

IF  (MOOE-l)  280,170,280 

108 

4805 

160 

DO  165  K=1,IS 

109 

4806 

165 

A(K+2»I)=-WTM(I-2) *  CPNUS (K) /NTG+GAMF  CK) ) 

110 

4807 

A(I,I)*A(I, I)  +  l. 

111 

4308 

170 

TMIN=AMAX1 (TMIN, TF (1-2 ) ) 

112 

4809 

IF  (T-TF (1-2) ♦ • 0 01)  175,175,180 

113 

4810 

175 

A(I,I)*1»0E*10 

114 

4811 

E  (I-2)*-VN iI-2)*l«00lE  +  10 

115 

4812 

MODE=0 

116 

4813 

130 

IF  (MOOE-l)  185,190,185 

117 

4814 

185 

IF  (KR ( 8) )  280,280,190 

118 
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4815 

4816 

481 7 

4818 

4819 

4820 

4821 

4822 

4823 

4824 

4825 

4826 

4827 

4828 

4829 

4830 

4831 

4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 
4  B47 

4848 

4849 

4850 

4851 

4852 

4853 

4854 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 

4866 

4867 

4868 

4869 

4870 

4871 

4872 


190 

195 

200 

205 


220 

225 

230 


IP  <TF<r-2i*.001«T)  325,195,195 
IF  (JC)  205,205,200 
IF  (Y'I-2>-3JC)  325,325,205 
'5  BJC=Y<I-2)-EC0(I-2> 

JCS=JC 

thax=tfc:-2) 

JC=I-2 

IFCJC=lBC  (1-2) 

IP  (KR<8)>  210,210,280 
A (1, JCS*2)=0. 

A(l,I)*-ft.o 
B(1)=BJC 
GO  TO  325 

- —GAS  PHASE 

VA=vN  II-2) 

CPG=CPG+VA*CP(I-2) 

A  (1,1) =VA 
A  (2,I)=WA 
EP=EP- VA 

IF  (KAT(IK>-99)  220,275,220 
IP  (KR (6) )  275,250,225 
00  230  <=1,IS 

5  *1*  I* s  f  VLAM  (1-2 1  K)  +  GAHH  (K)*H(I-2))*VA 

A(I,I)3Aa,mVA*RV 
DUM2*WTH(I-2)/hTG*HTL/HTG*VA 

DO  24*  <*1, JS 

td,tI^»IEBL(K,*GT*A8S<A  tK+2,I,,)  G0  T0  240 

IP  (EB(K)-ABS(A(K+2,I)))  235,240,240 
FB(K)sABS(A(K+2fI)  )  ' 

IB(K)sl-2 

E ( K*  =E (K) -A (K+2, I) 

A  (K+2,  I)=A(K+2, I)-tOUM2*PNUS  (K) 

60  TO  280 

0UMl=WTM(I-2)/WTG*VA 
DUM2=  )TL/HTP*DUH1 
IF  (KM4>>  255,255,260 
OUHl=0. 

VA= (RV+1. ) *VA 
GO  TO  265 

0UM1=DUM1* (l.-FFF/FF  (1-2) ) 

VA=  (RV+FFF/FF(I-2) )  *VA 
DO  270  K=1,IS 

A  »fl+2,I)=0UHl*SLAM(K)+0UM2*FNUS(K) 

A  (I,  I ) s A (1,1)  +  VA 
EB(I-2)=ABS(VA) 

IB (1-2) =1-2 
E(l-2)=»E(I-2)-VA 
IF  (MOOE-2)  320,300,285 
IF  (IBC  (1-2) )  325,295,290 
HOS*S8(I-2) 

GO  TO  305 

HOS=S8 (1-2 )-l» 9869* Y (1-2) -1,9869 

GO  TO  310 

H0S=H(I-2) 

IP  (IBC (1-2) )  325,310,305 
A(l,I)*HO$ 

GO  TO  315 


119 

120 
121 

123 

124 

125 

126 

127 

128 
129 


131 

132 

133 

134 

135 

136 

137 

138 

139 

141 

142 

143 

entr-mod 

entr-mod 

144 

145 

146 

147 

148 

149 
153 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

166 

167 

168 
16* 

170 

171 

172 

173 
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4873 

310 

A (l,I>*H0S*VN(I-2) 

4874 

315 

A ( 1,2) *A (l,2)*HOS*VN (1-2) 

1T4 

4875 

320 

CPF*CPF*CP (X-2) »VN (X-2) 

175 

4876 

325 

CONTINUE 

176 

4877 

00  330  1*1, IS 

177 

4878 

BE  (!)•£ (Z) 

178 

4879 

330 

BY (I)»Y (X) 

179 

4860 

IER*0 

180 

4681 

IRE*0 

30 

4682 

EER«0. 

31 

4863 

C 

-  -  -  MAIN  NON-BASE  SPECIES  LOOP 

32 

4684 

350 

IIN»N4KR(8> 

33 

4665 

IF  (LIN-ISP)  730*355,355 

36 

4666 

355 

J*ISP 

37 

4867 

00  725  !K*ISP,LIH 

38 

4666 

IF  (IK-N)  365*365*360 

3« 

4689 

360 

E(J>*  l.E-10 

40 

4690 

IF  (IFC(J))  410*725,445 

41 

4891 

365 

IF  (I FC  (J)  +  l)  725,370,370 

42 

4892 

370 

IF  (ITS)  390,375,390 

43 

4  693 

375 

VN(J)*VN(J)/SUMN 

44 

4694 

IF  (IFCfJ))  390,365,380 

45 

4695 

360 

VN(J)*VN(J>/SUHC 

46 

4696 

GO  TO  390 

47 

4897 

385 

Y ( J)*Y 5  J) -SUHL 

48 

4898 

390 

E(J)*VLNK(J)-V(J) 

49 

4699 

DO  405  1*1, IS 

50 

4903 

IF  (iaC(I))  400,400,395 

51 

4901 

395 

FNU(I)*a. 

52 

4902 

GO  TO  405 

53 

4903 

400 

FNU(I)=VNU(J,I) 

54 

4904 

E (J)*£  (J) ♦FNUI 1) *8Y  (I* 

55 

4905 

405 

CONTINUE 

56 

4906 

IF (KR (61)  409,409,408 

57 

4907 

406 

IF  (ITS )  408,407,408 

4908 

407 

ECO (J) * (1, -EASE) •£  (J) 

4909 

406 

E(J>*E  (J)-ECO(J) 

4910 

409 

EAB*ABb  *'f  ( J)  i 

4911 

IF  (IFC (Jl )  410,590,445 

4912 

C 

CONDENSED  SPECIES 

59 

4913 

410 

EAB«E( J) 

6  0 

4914 

IF  (KR  (6) )  425,415,415 

61 

4915 

415 

IF  (T-TF (J)*, 001)  42C, 425,425 

62 

4916 

420 

£AB*Q« 

63 

4917 

IF  (KR <81 )  535,535,545 

64 

4916 

425 

IF  (f(J)-EIR)  §15,595,430 

65 

4919 

430 

ECR-C(J) 

66 

4928 

IF  (ICR)  435,435,448 

67 

4921 

435 

ISPQ»I SPQ*i 

6  t 

4922 

ICR-ISPQ 

69 

4923 

440 

IE-IER 

70 

4924 

IRC-IK 

71 

4  925 

GO  TO  450 

72 

4926 

445 

ISPQ»IS»*Q»1 

73 

4927 

IC-ISPO 

74 

4926 

450 

ktr«o. 

75 

4929 

IF  (KR (6) )  460,455,455 

76 

4930 

455 

TNIN>«NAX1(TF(J) ,TNIN) 

77 
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<•931 

HTR=WTN<J)/HTG 

79 

4932 

460 

00  465  I=1,ISPG 

60 

4933 

A(I,1€>«0. 

81 

4934 

465 

A(IE,I)=0. 

82 

4935 

00  460  K>1,IS 

63 

4936 

0UM1*VNIMJ,K> 

84 

4937 

IF  (IBC(K)-l)  470,470*480 

85 

4936 

47Q 

VA»0UH1»VN(J) 

86 

4939 

A  (K»2»  IE)*0UM1-HTRMPNUS(K)  ♦GAHF CKI  *HTG» 

67 

4949 

BE  (K)  *BE  OO-VA 

86 

4941 

IF  (AOS CVA)«E8 (Kl  l  480,480,479 

69 

4942 

475 

EBJK)*ABS(VA) 

90 

4943 

IB(K)»IK 

91 

4944 

460 

CONTINUE 

92 

4945 

K=IE-ISR2 

93 

4946 

IF  (I<-N)  505,505,485 

94 

4947 

485 

95 

4946 

B<IE)3Y(JC» 

96 

4949 

IF  (JC-IS3  495,495,490 

97 

4950 

490 

A  (IE,1)=TC(JC) 

98 

4951 

BlIEJaECJC* 

95 

4952 

495 

EAB=-8<IE) 

100 

4953 

IF  ilFCJC)  715,715,500 

101 

4954 

500 

EAB=ABS (EAB) 

102 

4955 

GO  TO  715 

103 

4956 

505 

104 

4957 

A(IE,1J*TC«J) 

106 

4958 

B(IE)=ECJ« 

107 

4959 

IF  (T* . 001-TF f J) )  515,510,510 

108 

4960 

510 

IF  <KR ( 8)  J  530,530,540 

109 

4961 

515 

IF  (MODE-ll  520,525,520 

110 

4962 

520 

IF  IKR (6) )  530,525,525 

111 

4963 

525 

A(IE,IE)=1.E*10 

112 

4964 

0<IE>=-VN<J)*1.OO1E*1O 

113 

4965 

MO0E*O 

114 

4966 

530 

IF  CHOOE-2)  535,575,580 

115 

4967 

535 

IF  (MODE- 1)  715,540,715 

116 

4968 

540 

IF  (T-fF(J)-.001»  545,545,560 

117 

4969 

545 

IF  <JCI  555,555,550 

118 

4970 

550 

IF  <E(J»-8JC)  725,725,555 

119 

4971 

555 

0JC=E (J> 

120 

4972 

JC  =  IK 

121 

4973 

IFCJC»IFC<JC) 

122 

4974 

TNAXaTF  <J) 

123 

4975 

IF  <KR18>>  565,565,560 

124 

4976 

560 

IF  <MOOE-2>  725,575,580 

125 

4977 

565 

8<1)*0JC 

126 

4978 

OO  570  X»1,IS 

127 

4979 

570 

All  ,K*2)*“FNUC  K) 

120 

4980 

Atl,l)*TC (J) 

129 

4981 

GO  TO  725 

130 

4962 

575 

HOS*H( J> 

131 

4983 

GO  TO  585 

i:2 

4964 

$80 

MOS*SB< J) 

133 

4965 

585 

All, IE i* 60S 

134 

4986 

AU,2)  *A<l,2)-VNlJ»  *HOS 

135 

4987 

CPF*CpF*CplJi*VNlJ) 

136 

4988 

GO  TO  715 

137 
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4989 

C 

4990 

4991 

590 

4992 

4993 

4994 

595 

4995 

600 

4996 

4997 

4998 

605 

4999 

610 

5000 

5001 

5002 

615 

5003 

620 

5004 

5005 

5006 

5007 

625 

5006 

630 

5009 

5010 

5011 

5012 

5013 

635 

5014 

5015 

5016 

5017 

5018 

5019 

640 

5020 

5021 

645 

5022 

650 

5023 

5  024 

655 

5025 

660 

5026 

5027 

665 

5  028 

670 

5029 

5030 

5031 

5032 

675 

5033 

5034 

690 

5035 

5036 

5037 
5030 
5039 

665 

5040 

5041 

690 

5042 

695 

5043 

700 

5044 

5045 

5  046 

785 

CAS  PHASE  SPECIES 
XP(J)*0 

IF  (VN ( J) )  595,715,595 
IQ«0 

CPG*CPGtVN (J)  *CP  CJ) 

IF  (KR(6>)  625,600,615 
FFJ«FFF/FF<J> 

0UH1« MTM ( J)/MTG*VN ( J) 

OUH2«OUHl/MTG*HTL 
IF  (KRI6M  610,610,625 
IF  <KRI4»>  615,615,620 
OUH1>0. 

FFJ»1.0 

GO  TO  625 

OUHl«DUHl*tl.-FFJ> 

00  660  KI«1,1S 
I»2-IR«KI) 

VA*VNU(J,X*2)«VN(J) 

IF  (KAT  CKD-99)  630,645,630 

IF  (KR(6) )  645,640,635 

VA.VA*R¥*VN«J)*«VLAHCJ,I-2)*6AMHCI-2»*HIJ)) 

BE  (1>2I«BE(I*2)-VA 

ABSVA*ABS(VA) 

VA*VA*PnUS(I-2»*0UH2 
GO  TO  650 
WB*VA*FFJ 
VA*RV*VA*VB 
0E(I-2)»8Ea-2)-VA 
ABSVAx ABS (VA) 

VA=VA«-SIAN  (1-2)  *DUMl*DUH2*PNUS(I-2) 

GO  TO  650 

BE(I-2)«B€a-2)-VA 

ABSVA>A8S(VA) 

IF  (ABSVA-EBLCI-2) )  660,660,655 
IQ*1 

IF  (ABSVA-EB(I-2)I  670,670,665 

IF  (ABS  <VA)»ebl  <I-2H  660,600,670 

E3 (1-2 ) * A3SVA 

IB<I-2)*=IK 

00  675  K«3,ISP2 

A(I,K)>A(I,K)+VA*FNU(K-2) 

BCI)*B(I> -VA*E { J) 

A(I,1)*A(I,1)-VA*TC(J< 

A  (M)*»(2,II*VN(J)  •FNUII-Sl 
CONTINUE 

IF  €  IQ  9  715,713,665 

EP»EP-VN<J> 

IP<J>»-1 

8(2)»6 (2»-VN(J) •£(  J) 

A  C2, 1 )  *  M2, 1> -VN  (J)  *TC  ( J) 

IF  <NOOE*2)  710,690,695 
MOS*  H  ( *j  I  •  VN  ( J> 

CO  TO  700 

HOS-VN ( J) • (SB <J» -1.1869*Y I J >-1.98691 
00  705  1*3, ISP2 
A(l,n*M0S*FNU<I-2)*ACi,I) 

A<l,2>*A(i,2)-NOS 

A(l,l)*A(l,l)»HOS*TC(J) 


13' 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 
156 

159 

160 
161 
162 
163 
t64 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 
176 

179 

180 
161 
182 

183 

184 

165 
186 
167 

166 
169 

190 

191 

192 

193 

194 

195 
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5047 

5040 

710 

5049 

715 

5050 

720 

5051 

725 

5052 

730 

5053 

5054 

5055 

735 

5056 

5057 
5050 
5059 

740 

5060 

5061 

5062 
5963 

5  064 

5065 

5066 

5067 
5060 

745 

5069 

5070 

5071 

750 

5072 

755 

5073 

5074 

760 

5075 

5076 

5077 

5078 

765 

5079 

5080 

5081 

770 

5082 

775 

5083 

5084 

5085 

780 

5  086 

5087 

5088 

5089 

5  090 

785 

5091 

5092 

5093 

5  094 

5095 

5096 

798 

5097 

5096 

795 

5099 

800 

5100 

5101 

805 

5102 

5103 

5104 

B(i»»BCl)-HOS*E  (J) 

CPF«CPF*VN (J> •CPIJJ 
IF  (EI-EA8)  720,725,725 

EL*EA0 

JuJM 

CONTINUE 

ISP3»IS*J 

IF  (NOOE-2)  705,735,760 
CPA«CPf*T 

smnlt»nnelt*on  <nel T ) 

EHS«M*HIP*M1,2) 

IF  (KKJ»i>  750,740(750 
0UH1«SVA/AA*T*T 
EHS*AA*SVC~0UM1*A  (1,2) 

HIP.-A (1,2)/AA 

A  (1,2) =-AA*SVC-OUNl 

CPA«(CPF»2.*DUH1/T)*T 

0UN2*9V8/AA»T 

P-P-EP 

EP*0. 

IF  »A0S (EHS/An ) - 10 . )  745,745,750 
EP«-P»SVO-OUN2 
A(2,l)aA(2,i)»0UN2 
A (2,2)  *-0UH? 

IF  (KR (2) -MOOE )  765,755,765 
A  (  1,21 *-AA*HIP 
GO  TO  765 
CPA*CPF 

SMHLT*SNELT*VN  <HCLT) 
EHS«AA*SlP^A(lf2)-t.8865*(P-EP> 

Atl,2)*-AA*SIP 
B(1)=>BC  )»EHS 
A  <1,1>*A(1,D«CPA 
IF  (SHHLT)  785,785,77^ 

IF  (EMS)  785,785,775 

ehs*ems-shhlt 

8 ( 1 )*B ( 1) -SHNl T 
IF  (EHSI  780,785,785 
FLIO»l ,  ♦EHSrSHMl.T 
NOOE»0 

A  ( 1 , 1) x 1.  EM0 
TMIW*500, 

TNAIaS  800# 

ENL>ABS(EP)/P*100. 

DO  810  I«],ISP2 
C  ( I-J) «§f (1-2) 

CBL  <I-?)«E8(I-2)*l.E-7 
ACI,2J*-AAULP(I-2) 

IF  <IFctI-2>-l>  755,755,780 

NFK>NFH»1 
CO  TO  oto 

IF  (KR(6n  005,805,800 
A<I,1I«A(I,1)*CANH( 1-2* *T* CFG 
C  < 1*2) *E  d-2) ♦F?L*GABF  (1-2* 
ER»E(I-2> 

AaER*«BS(ER>/(C8(I-2)»l.E-2l) 

E4L*AHA*1  (ABER.CMU 
8 ( I >«8 ( I) *CR 


196 

197 

198 

199 

200 
201 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
4« 

50 

51 

52 

53 

54 

55 

56 

57 
50 

59 

60 
61 
62 

63 

64 

65 

66 
67 

69 

70 

71 

72 

73 

74 

75 
7t 

77 

78 

79 

80 
01 
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9105 

010 

CONTINUC 

02 

51 06 

IF  <ISN2>ISNQ>  015,600.000 

03 

5ior 

015 

IV»( 

04 

5100 

J2»0 

05 

5109 

C 

A00  CONOCNSCO  NON0ASC  SNCCXCS  TO  AMAY 

06 

5110 

00  060  IC*ISF3, ISFO 

07 

5111 

•0 

5112 

09 

5111 

ir  1J-IS1  A20.A20.030 

99 

5114 

020 

00  025  Ml, IS 

91 

5115 

025 

A(I£,K»2)M« 

92 

5116 

»  <IC,  J92M-1.0 

93 

511? 

60  TO  060 

94 

5110 

030 

00  035  Ml, IS 

95 

5ltt 

035 

ACIC. VNUO.KI 

96 

5120 

040 

CONTINUC 

97 

5121 

C 

CLINI natc  tcnns  conmsoonoinc  to  oncscnt  iasc  CONOCNSCO 

90 

5122 

00  055  Ml,  IS 

9« 

5121 

If  C IOC  (All  055,055,045 

100 

5124 

045 

00  050  1C*IS03,IS0Q 

101 

5125 

050 

A(lC,O2)»0. 

102 

5126 

055 

CONTINUC 

103 

512? 

000 

8<2I*I?*0(2> 

111 

5120 

IFUft(6>>  59?9,59?9,59?6 

5129 

59?6 

tNL*A»$(t?)/?*100. 

5130 

irmT)  5973, 59?3, 5974 

5131 

59?4 

CALL  KINCT 

5112 

59?  3 

CONTINUC 

5133 

00  5915  I-l.IS 

5134 

IMCBfin  59A4, 5 906,59*5 

5135 

5905 

cb(I}*ahaxi<cb<x!,a«s<c m  >  > 

5136 

IMITS)  5970, 5977,5970 

513? 

59?? 

CC3C  (I)*C(X)*f  l.-EASd 

5130 

59?  0 

cm*cm-ccscm 

5139 

*(I*2»«oa*2)-CES£(I) 

5140 

5906 

El  <I)  *  AOS  (EKI  >  > 

5141 

IFIIFCUI-IJ  5971,5971,5979 

514? 

59?1 

EKL'ANAIMENL,  A8S(£(I> /(EI<I)»1.€-2I)  » ) 

5143 

59?5 

CONTINUE 

5144 

59?9 

CONTINUC 

514$ 

IF  (NODE-11  910,090,005 

112 

5146 

005 

IF  (A0S<CM3/A(1,1))-.II01>  510,910,920 

113 

514? 

090 

IF  tlFCJO  095,900,905 

114 

5140 

095 

IF  MC-Iftf)  990, *95,900 

115 

5149 

90S 

N 001*0 

117 

5150 

TNIN-TTNXN 

110 

5151 

TNAMTTNAX 

119 

5152 

900 

IF  lliJ(»ft)l't.(-U  910,910,920 

116 

5153 

919 

IF  (CL- t.E-41  919,915,920 

lit 

5154 

915 

IF  (CNl-l.f-5>  935,935,920 

122 

5155 

920 

IN»IS*0 

123 

5156 

IL*1 

124 

515? 

IF  (NOOC1  525,925,930 

125 

5150 

925 

IN-ISNQ-1 

126 

5159 

IL*2 

127 

5160 

*(1)»9. 

129 

5161 

930 

NCT5JNN 

129 

5162 

935 

I  T  *  I T  5*  1 

130 

161 
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5163 

ITS»-1 

5164 

CO  TO  930 

132 

5165 

END 

131- 

5166 

5167 

C323A 

S23A 

001 

5166 

SUBROUTINE  CRECTCNOE) 

823  A 

002 

5169 

INTEGER  FAMOA,F*NOB 

B23A 

004 

5170 

COMMON / INTCON/ KKR l 20 ) , KIN, KCUT 

51/1 

DIMENSION  CIJC  7l,l» ,TFIl) 

973A 

005 

5172 

EQUIVALENCE  ITU  (  72) ,TF) , <VNU,CIJ) 

823  A 

006 

5171 

DIMENSION  X<l6> 

B23A 

007 

5174 

or  HE  NS  I  ON  CUFF  1  71) 

B23A 

008 

5175 

CONNON  /BLQCOH/FAHOA 1  7l),FANOfil  7l),N  ,FR(  71, If), NO) ,LEF(10) B23A 

9 

5176 

1  ,l£FS(lt),l»IEASE'lEFN<10)  ,12,13 

ENTR- 

•MOO 

5177 

CONNON  /EQFCON/  RBI  71,2), RCI  7l,2),RO<  7l,2>,REI  7l,2>,RFl  71,2) 

,  B23A 

11 

5170 

1  Tut  71 ,2),FFI  71),FFA,IFC»  71) ,ATA 110) ,ATi 111) ,ATCI10) ,HAT ( 10) , 

B23A 

*2 

5179 

2  KATI If) (IRIlO) ,IS,KRt 10) tLANl (  7l) ,F,?,TK (10,  7),VN(  71), 

8234 

13 

5160 

3  VNUI  71,10),  ITFF,KR2,NCH,NCV,NN,NTN(  71), VI  7l),VM(  7i), CCI  7l) 

117  3  A 

14 

5101 

4  ,TQ(10,  7|,fFOVtK,SIGNA,OASMQL 

623A 

IS 

5102 

CONNON  /EQTCOH/SIF,HIF,El, C*L,FLIC,CFF , IRE, I ER, A A, ITS, IN, I l , I T , 

823* 

16 

5103 

1  H ODE, HNELT,SN£L T, THAI, THIN, KELT, SUNN, SUNL, NS, NSS, Bit ISF2, ISFO, 

823* 

17 

5l0(i 

2  i$f,xxj,sva,sv8,svc,svo,3uhc»fff,cnf ,ef,rv,ifcjc,vtg,mTi, JC,HG, 

823  A 

18 

5105 

3  CFG,  TTMIN,  TTMAX, L7,  LA,  IB  ( ID,  CB(  18),  EfcLt  18) , A( It, 16)  ,  B( 16) , 

ektr-hoo 

5106 

4  IF (  71) ,AIF(10> ,FNU<10) ,CARH (10) ,6ANF  1  IQ) ,SLANtlf)  ,0V  I  7l),RVS, 

923* 

28 

5107 

5  CPI  7 i> ,rt(  7 1 ) t SB (  7l),TCI  7l),VLNK(  7l),€(  7l) ,FNUS( 10) , 

823  A 

21 

5100 

6  BCI10)  tBLNK(lO)  ,BY(10),IBC(l4),l£<  10)  »«Wt  6) 

823A 

22 

5109 

EQUIVALENCE (OYA.OY) 

5190 

UINENSION  OVA ( 1 , 1) 

5191 

EQUIVALENCEIB,*) 

823* 

818 

5192 

CLlN*OH«xl(l.t M(7I4M(3I)*0.2«HTG 

31 

5193 

0MTL®8« 

32 

5194 

0MT6-*. 

33 

5155 

CUHF*N*l.E-7 

34 

5196 

OUMF*P*l.E-4 

35 

5197 

8ULF=AL0C(§UHF> 

36 

5190 

CMF*1. 

37 

5199 

5 

X*  0 

38 

5700 

DO  70  J*2,IS 

39 

57  01 

IF  (IB(J)-IB(J-l))  19,15,20 

48 

5702 

18 

ja«ib( j) 

41 

5783 

It(J> =I0(J-1) 

42 

5704 

18 

43 

5  705 

X*  1 

46 

5706 

GO  TO  73 

45 

575? 

15 

IB IJ) *  1888 

46 

5780 

70 

continue 

47 

5739 

IF  IX)  75.75,5 

4* 

$710 

75 

1 8 < IS* 1 ) *  1803 

69 

5711 

H«I8<  l) 

58 

5717 

Ht»t 

51 

5711 

L*  IS*  ? 

5  2 

5714 

1*3 

53 

5215 

U*1 

54 

5716 

L IH«N*<3(«) 

55 

5  7 1  ? 

oo  ?ej  rx*i,tiH 

56 

571* 

i*r»i 

57 

5719 

IF  <IX-IS»  38,39,65 

5* 

5273 

38 

5L*N(I)*3. 

5« 

ua 
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5221 

X*C<X»«IPC<I> 

9222 

PMUSfXMO, 

60 

9221 

IP  UPC  El  1  -1)  35,35, 75 

61 

9226 

35 

0V]*xtX«2> 

62 

9229 

IP  <IPCinn>  275,60,60 

63 

9226 

60 

IP  tlFCdn  209,95,290 

66 

9227 

69 

IP  UFCtmi}  75,98,50 

69 

9226 

50 

IP  (IPCmi  70,99,05 

66 

9229 

55 

VA«C<!»oTC<Xt’X(i> 

67 

9210 

00  69  >l,ts 

6  ( 

92)1 

IP  (I0CIJH  60,40,65 

69 

92)2 

40 

V0«VA»VNUtI,'J>’XU*2> 

7 t 

9211 

65 

continue 

71 

9216 

0VI*V6 

72 

9215 

CO  TO  99 

73 

9234 

70 

IP  CIX-IOCI  79,00,79 

76 

5237 

79 

071*0  . 

75 

5210 

60  TO  27 5 

76 

52)9 

00 

IPCEII*1 

77 

5260 

07I*X(IC0l 

70 

5261 

CO  TO  230 

79 

5262 

05 

IH»1 

00 

5263 

IP  a-XCM  90,05,90 

01 

5266 

90 

0TX*X(L) 

02 

5269 

60  TO  230 

03 

5266 

95 

0Ht6*0Mf6*«fMi)*orx«irrn(2) 

06 

5267 

IP  tiPtIM  100,195, 100 

05 

5260 

100 

IP  EIK-PH  105,169,105 

06 

5269 

105 

IP  <VV<X>~0UHP>  110, 140,160 

07 

5250 

110 

IP  EHOfl  195,199,115 

0  ( 

5291 

119 

IP  tOYI>  120,279,125 

09 

5292 

120 

IP  (VH(I)/0U«?-.9S99995-CMF*OYI>  279,275,130 

90 

5251 

129 

i*  <ouw/7n«D  -i.-c»p*or;)  139,279,275 

91 

5256 

110 

CHF*(VNm/0UHP-.  9999995)7071 

92 

5255 

60  TO  275 

93 

5256 

135 

CHP*  (  BIMP/VN  ( I  )**1,|  /0YI 

96 

5257 

60  TO  275 

95 

5250 

160 

IP  (HOC!  175,179,150 

94 

5259 

165 

himu*i 

97 

5260 

H*I0E*U) 

90 

5261 

150 

IP  (QTI)  155,275,169 

99 

5262 

155 

IP  E07 I*CHP*, 9991  169,275,279 

100 

5?6  J 

160 

IP  tOYI*CW-9«  1  275,275,l7g 

101 

9266 

165 

CWP*-. 999/071 

10? 

52*5 

60  TO  275 

103 

5266 

170 

CHP«5,/07I 

106 

sm 

s«m 

mi 

$v% 

s?7  t 

i  m 
sin 

UH 

HU 

im 

HH 

im 


60  to  tr* 

iT9  ip  coti*c*p-2. JIJ)  tu,ii(lM| 

IT  I0T  X*C*F«4.  Ill)  in, 27%, 27% 

»«  cw*-i.i»imi 

60  TO  27% 

Iff  cur*?. 303'OTI 
60  ’C  275 

if  <t < i>- tvtF* aos (or i> «c«f >  iM.m.m 

*••  CUP*-  tYtt)'*0IA.P)/A8S(0TX) 

60  10  275 

C  M0M~P«C5C*Y  use 

?•*  ip  tnttn  215,210.210 


in 

IH 

107 

III 

HI 

no 

tit 

II? 

tu 

116 

115 

116 
117 
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5  279 

210 

IF  (T-TF ( !>♦* 001)  275,219,21$ 

118 

5280 

215 

IF  (Y*  mCNF*DVI-0.i>  275,220,220 

119 

5261 

220 

0UMl«C.l-t(I)l/0Tl 

120 

52*2 

IF  1OUN1-.O01)  275,275,22$ 

121 

$263 

22$ 

CNF-0UN1 

122 

$286 

CO  TO  275 

123 

MM 

230 

ONTL«OW  ♦OVI»WTfMX) 

126 

52*6 

IF  lOYll  235, *75,25? 

12$ 

5262 

23$ 

IF  1VNCIII  250,250,260 

126 

52*1 

269 

IF  IVttf  2)+0Tl*CNF)  269,250,250 

127 

52*9 

26$ 

CHF*>tfN<X>/Oyl»l.«M01 

“*9 

$290 

290 

IF  (XR<6>>  Hit  255,255 

129 

$291 

25$ 

ciiPMSsieuft/wrMfX}} 

130 

5292 

IF  <A8S<CIIF*0YX)-CII?>  275,275,260 

131 

$293 

260 

CRF«CLlF/AtSIOYl> 

132 

§296 

CO  TO  27$ 

133 

5295 

26$ 

IF  <A8SJCNF*DYI)-F)  275,275,270 

136 

$296 

220 

CNF*F/A6S(0Yl> 

13$ 

$292 

22$ 

CUFF ( I ) *CNF 

136 

$296 

200 

OTIIKMOYI 

137 

5299 

If  (KRIE))  290,205,265 

136 

5300 

205 

R  VI*  AH  A  XI  ( .1  fP.V/t,  ) 

139 

$301 

CHFMHlNl  (CHF  ,  NYC/ABS  <A65(OXTi.-OWTG/WTG*WTL  )  /  RVL-0nT6) ) 

160 

$302 

290 

IF  <«R<?>‘1>  315,31$, 3C6 

161 

$  J63 

295 

FORMAT  (iX2l6X2M«N9XlMT6X2H0T7X9HSCAAC7XlMf4X6HIFC  IF) 7(1X66, 5E10. 

162 

$306 

13, 13, 12, IX, A6, $£16.3, 13, 12)1 

163 

530$ 

300 

9*0*1 

166 

53|6 

WRITE  <XOUT,29$)  IFAMOA  <J>  ,  VHU)  ,  Y«J)  ,DYA  C  J,U.)  ,CNFF  CJ)  ,£  IJ )  ,  IFC  CJ 

165 

5302 

1) ,IF(J) ,J-1,NQ) 

166 

$306 

WRITE  (XOUT.310)  l£B(I),I*l,IS) 

167 

5389 

WRITE  (KOUT,310>  (1(1) ,I»l,I$FQ) 

168 

$310 

WRITE  *<OyT,305)  < IB (I > , I* 1 ,IS> 

169 

5311 

3C$ 

FORMAT  (161$) 

150 

5312 

310 

FORMAT  (6E12.6) 

151 

5313 

315 

CONTINUE 

152 

5316 

IF  iX<i>)  320,360,320 

153 

5315 

320 

H*Xlll  »CNF 

156 

5316 

ABX*ABS<Xti)) 

155 

5312 

IF  (ABS<Xl>-.$>  336,336,32$ 

156 

5311 

325 

CNF*.5/»BX 

157 

5319 

XI»CWF*X(  J) 

159 

5328 

330 

IF  (XI)  368,360,33$ 

159 

9321 

335 

TN*  THAI 

160 

5  322 

Il«AHINlt.2,Xl) 

161 

5323 

CO  T©  365 

162 

5326 

360 

TN*TNJN 

163 

5325 

Xl*ANAYlt-6.2,Xl> 

166 

>326 

365 

QTN«(?R-T>/<TN*I1) 

165 

532* 

IF  (OTM-l.)  3$ 6 , 355 ,395 

166 

5326 

350 

CMF*OTN*CNF 

I6T 

5  329 

T-TN 

il# 

5338 

CO  T©  360 

16* 

5331 

355 

T«T/fl.-*ll 

IT. 

5332 

360 

A*» AA*EXF9CMF*  X ( ?) ) 

1*1 

53)1 

Nl»l 

38 

5336 

N* 18*1) 

31 

13  35 

WT(.  *0  • 

5? 

5336 

WTC*0. 

33 
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533  2 

0UM2*0* 

3* 

5336 

1*1 

35 

5336 

36 

53*0 

00  *65  IK«i,LIN 

37 

53*1 

OYI*CMF*rV(lK> 

36 

53*2 

IF  (DVI)  396,360,365 

36 

53*3 

360 

IF  (IFCfXM  *65, *35, *65 

*0 

53** 

365 

IF  (IFCfD)  *55, *00, *00 

*1 

53*5 

*00 

XF  DRUM  *05, *30, *05 

*2 

53*6 

*8$ 

IF  <H» IK)  *10, *15, *10 

*3 

53*2 

*10 

I,  (HOC)  *38, *30, *20 

** 

53*6 

*15 

«1**1M 

*5 

53*9 

M*X«(H1) 

*6 

5350 

*20 

VN(I>*VMI)*<l.»OYI) 

*7 

5351 

IF  (VK(D)  *30, *30, *25 

*6 

5352 

*25 

vm*AL0C(WMX)) 

*9 

5353 

CO  to  *35 

50 

535* 

*30 

v(ii*r  m»ovi 

51 

5355 

VN(1)*£IR(V(D ) 

52 

5356 

*35 

VA*NTN(D*VM<1> 

53 

5352 

MTG*MYG* VA 

5* 

5356 

0Utf?*0UH2+V6/FF  ( I) 

55 

5356 

IF  (IK-IS)  **0«**0«**$ 

56 

53(0 

**0 

pnws(I>*vmii» 

57 

5361 

SlAM(I) *VN(I>/FF(I) 

56 

5362 

CO  TO  *65 

56 

5363 

**$ 

OO  *50  K>1,IS 

60 

536* 

VA*VWm,K)*VN(D 

61 

5365 

»MUS(K)*f>MUS(K)«VA 

C2 

$366 

*50 

SIAM!  K)  *SIMHK)  tVA/FF  (  I> 

63 

5362 

CO  TO  *65 

6* 

5366 

C 

MOM-RRESEMT  «ASC  CORRECTIOMS  AMO  TESTS 

65 

5366 

*55 

Y<I)*T  tlDOTI 

66 

5320 

IF  <V(I>>  *65, *60, *60 

67 

5321 

*66 

IF  (IFC(D*i>  *65,  *65,  *65 

63 

5322 

*55 

IF  (KR<6>>  *25, *20, *20 

66 

5323 

*21 

IF  *69, *75, *75 

70 

532* 

*25 

Y<I>*». 

71 

5325 

IFC(I»«*1 

72 

5326 

CO  TO  *65 

73 

5322 

*66 

VM(I)*VM<D«QYI 

7* 

5326 

IF  (VN  (II)  *69, *60, *05 

75 

§329 

*•$ 

riTL*MTL*VNa)aMTN(I) 

76 

1366 

CO  TO  *65 

77 

5361 

*60 

¥N(I»*0. 

76 

5362 

IFC(I)  —1 

75 

5393 

*65 

I»I*1 

•• 

13'.* 

FF F>tfTC/OUR2 

01 

5365 

00  I-i.IS 

62 

5366 

500 

S t  A n 1 1)  « SC Jff< 1 1  •  FF F 

63 

53C2 

RETURN 

•* 

5366 

CMC 

•6- 

53*9 

5366 

5361 

C*2%4 

SUBROUTINE  IMRUT(RR) 

IMTCCCR  F *NOA,  F  A  NO  6 , CHAR , OL ARK 

02*4  001 

5362 

5363 

INTCCER  ANOA, AMOR, ATI, AYi.ATC 

COMMON* tN?COft/«*f  20) , KIM, K6UT 

02*4  005 

536* 

01 Nf NS  I  CM  C2J(  71, 1) ,TF (t ) 

*2*4  IK 
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5395 

5396 

5397 

5398 

5399 

5400 

5401 
54  02 

5403 

5404 

5405 

5406 

5407 

5408 

5409 

5410 

5411 

5412 

5413 

5414 

5415 

5416 

5417 

5418 

5419 

5420 

5421 

5422 

5423 

5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5435 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 


DIMENSION  UM ( 1 0 » 1 0 ) 

EQUIVALENCECTU  <  72)  ,TF>  > (VNU,CIJ> 

DIMENSION  CC10),KPHA(2> ,RA<2),  IM(10)  , JAT ( 8) , ALPT (8) ,TAU(10»10> 
DIMENSION  IC<  10>,LIM(10,10> 

DIMENSION  FFINC  7i),NFIA<  7l),NF7BC  7l> 

DIMENSION  TFMET (  71),IGMET(  71)  ,ZIS£PSC2) , S0RCEC3) 

COMMON  /BLQCOH/FAMOA (  71),FAM0B(  71), N  ,FR(  71, 15) , W<3 ) , LEF < 10) 
1  r  LtFS  <10 ) ,PIE  ASE, LEFH(IO) ,L2,L3 

COMMON  /E3PC0M/  RB c  7l,2),RC<  7l,2),RD<  7l,2),RE<  71,2), RFC  71,2), 

1  TUC  7l,2),FFC  71) ,FFA ,IFC  (  71) , ATA CIO) , ATB <10) , ATC <10 ) , NAT  CIO) , 

2  KAT (10) ,IRC10) , IS , KR ( 1 0 ) , L AMI (  71) ,P,T,TX<10»  7),VN<  71), 

3  VNU (  7l,10),ITFF, KR2, HCH, NCV, HH, HTM <  71), YC  71>,YK<  71),GG(  71) 

4  , TQ<1 0,  7),EPOVRK,SIGMA,BASMOL 

common  /eqtcom/sip,hip,el,eni,flio,cpf,ire,ier,aa,:ts,in,il,it, 

1  MODE, HMELT, SMELT, TMAX, fMIN, MELT, SUMN,SUML, US, MSS,B1,ISP2,ISP0, 

2  ISP,KKJ,SVA,SVB,i>VC,SVO,SUMC,FFF,CMF,EP,RV,IFCvlC,HTG,HTL,JC,HG, 

3  CPG,TTMIN,TTMAX,L7,L6,IB(il) ,EBC10)  , EBL 1 1 0) » A (16, 16) , B(16) , 

4  IPC  71>,*LP(iO),FNtmO),GAKMiO),GANF(iG>,SLAM(lQ),DY<  71),RVS, 

5  CPC  *1),K(  71), SBC  71 ) ,TC (  7i),VLN«C  71), EC  71) ,PNUS< 10) , 

6  BC(IO) ,BLNK(10),BYC10),IBCC10),BE<10) ,JJ(  4) 

COMMON/ KINCOM/MT, FKF Cl 0),E 4KC10),EXKC10),PMUC10» 10), RMU Cl  0,10) , 

1  DKPT(IO) ,PKPC10),PKRC10) , RAT (10) ,RSIG<10) ,MA (10) ,LL <101 , PMRC 19) , 

2  PRMU 1 10, 10) ,EESE< 10> 

301  FORMAT  <I3,F7.0,7F10.4) 

302  FORMAT  (6E9.6, 2F6. 0 , 1 1) 

30  20  FORMAT  C 1X6E12.  5,Flfl.4,Fli.  4,I2/1X6E12 »5,F10.4,F11«4,I2) 

3021  F0RMAT(2A4,E12.4,2A4,E12.4,2A4,E12.4,2A4,E12.4> 

303  FORMAT CiH  /1H  ) 

304  FORMAT  <I3,3A4, e9.3,7E8.3> 

305  FORMAT C54H0REL ATIVE  ELEMENTAL  COMPOSITIONS,  ATOMIC  HTS/UNIT  MASS 
1/6X CHAT. NO. 3X7HELEMENT4X9H ATOMIC  HT5X8HEDGE  GAS4X10HPYRO. GAS  15X 

2  6HCHAR  15X10HPYRO.GAS  25X6HCHAR  25X10HPYRO.GAS  35X6HCHAR  3/ 

3  C7XI3,3X3A4,F10.5,7F13.7) » 

306  FORMAT  <7<F3.0,I3),  A2,9A4) 

DATA  CHAR,BLANK/4HCHAR,4H  / 

P  =  PP 


B24A 

007 

B24A 

008 

B24A 

009 

B24  A 

010 

324A 

Oil 

B24A 

012 

B24A 

13 

ENTR- 

MOD 

B24A 

15 

B24A 

16 

824  A 

17 

B24A 

18 

B24A 

19 

B24  A 

20 

B24A 

21 

B24  A 

22 

ENTR- 

MOD 

B24A 

24 

B24A 

25 

B24A 

26 

B24A 

27 

B24A 

28 

B24  A 

29 

e24A 

029 

B24  A 

030 

B24A 

032 

KRC3)=2 

KR  C2)  =  KKR  (12) +1 

IF(KR(2).EQ.3.0R.KR<2> .EQ.8)  KR<3>=6 
IF (KR ( 2) .EQ.7)  GO  TO  3751 
3062  MT=  0 

FF  A=0 . 489 

FITM0Ls26j7 

FITGMW=24.3 

GGA  a  0.454 

BA$HOL*32. 0 

SIGMA-3.467 

EPOVRK*106.7 


NFF=0  B24A  042 
VINT=P*l.E-6  B24A  043 
Y INT= ALOG (VINT )  B24A  044 
RMMGrl.  B24A  045 
IF  CKRt 7) )  334,334,321  B24A  046 


321  READCKIN, 301)  IS,FFAR,OUB2,OUB3,DUB4, DU85,0LB6,DUB7,DUB8 
IF  COUB2.GT.O.)  FITHOL=OUB2 
IF  (OU83.GT.0.)  BASMOL  =0UB  3 
IF  COUB4.GT.0.)  SIGMA*DU94 
IF  (DU 85. GT, 0. )  EPOVRK "0JB5 
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5453 

IF  (OUB6.GT.0.)  GGA  *0UB6 

5454 

IF  (GySF.GT.".)  FITSHW«0UB7 

5455 

IF(FFAR)  3213,3212,3211 

824A 

048 

5456 

3213  FFA=0. 

B24  A 

049 

5457 

GO  TO  3212 

B24A 

050 

5458 

3211  FFA=FFAR 

B24A 

051 

5459 

3212  CONTINUE 

B24A 

052 

5460 

JAT (6  )  =  0 

B24A 

053 

5461 

IX=3 

B24A 

054 

5462 

IF  (IS-10)  311,311,399 

B24A 

055 

5463 

311  READ(KIN,304)  (KAT (J) ,  ATA ( J) ,  ATB(J),  ATC(J),  WAT(J>,  (TK(J,I), 

5464 

1  I=1,7),J*1,IS> 

5465 

DO  327  <=1,7 

5466 

VA*0. 

B24A 

059 

5467 

DO  322  J=1,IS 

B24A 

060 

5468 

IF (KAT (  J)-99)  3111,325,3111 

BZ4A 

061 

5469 

3111  IF  (TK(J,K))  324,322,325 

B24A 

062 

5470 

324  VA=VA-TK( J,K) 

B24A 

063 

5471 

TK(J, K)=-TK(J»K)  /NAT  (J) 

B24A 

064 

5472 

GO  TO  322 

B24A 

065 

5473 

325  VA=VA*T<(J,K)*HAT< J) 

B24A 

066 

5474 

322  CONTINUE 

B24A 

067 

5475 

I.'CVA)  326,327,326 

5476 

326  CO  323  J*1,IS 

5477 

323  TK(J,K)=T<(Jf<)/VA 

B24A 

069 

5478 

327  CONTINUE 

5479 

HRITEC KOUTy305)  (KAT (J) ,  ATA(J) ,  ATB(I),  ATC(J),  HAT(J), 

(TK( J,I) , 

5480 

1  1-1,7) , J=1,IS) 

3481 

WRITE  < KOUT, 30 8) 

5482 

308  FORHAT (//3X61HTHERNODYNAMIC  PROPERTY  CURVE-FIT  DATA  (SEE 

MANUAL  FO 

5483 

1R  FORMAT)//) 

5484 

ISP=IS*1 

B24A 

u72 

5485 

IF(KR(3))  399,399,334 

B24A 

073 

5486 

334  TFMAX=0. 

B24A 

074 

5487 

AA A=0  . 

B24A 

075 

5488 

N=0 

B24A 

076 

5489 

II=ISP 

B24A 

0  77 

5490 

J=1 

B24A 

078 

5491 

342  REA3(KIN»  306) ( ALPT (K) , JAT (K )  ,K*1,7) ,SORCE , AFOA, AMOB 

5432 

IF (ALPT(l))  3421,399,3420 

5493 

3420  IF (JAT (1) )  344,3421,344 

5494 

3421  NFF=ABS (ALPT (1) ) 

5495 

REAO (KIN, 3021 ) (NFIA(I) ,NFIB(I) ,FFIN(I) , 1=1, NFF) 

B24A 

082 

5495 

GO  TO  342 

B24A 

083 

5497 

344  DO  345  K=i,IS 

5498 

345  C (K)=0 • 

5499 

DO  349  1=1,7 

5500 

IF (JAT (I) )  346,349,346 

5501 

346  DO  347  K=l, IS 

5502 

Ir  (JAT(I)-KAT(O)  347,  348,347 

5503 

347  CONTINUE 

55  04 

REAO? KIN, 303) 

5505 

GO  TO  342 

5506 

348  C(K)=ALPT(I> 

5507 

349  CONTINUE 

5508 

WT=Q» 

5509 

L  =  1 

5510 

LAM«=0 
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5511  00  388  1=1, IS 

5512  IF (C(I) )  387,388,387 

5513  387  UMK<=LAMi<K+L 

5514  HT=WT*C(I>  *  MATCH 

5515  388  L=L+L 

5516  IF(J-IS)  360,360,369 

5517  360  JN=J-1 

5518  DO  3601  L=i» IS 

5519  3601  CIJCL, J>=CCL) 

5520  LAMIfJ)  =  LAMKK 

5521  IF  ( JH )  320,320,313 

5522  313  00  314  L=J,JM 

5523  IML=IM(L) 


5524 

UGH=C(INL» 

5525 

UM (L, J ) =0. 

5526 

IF  (UGH)  353,314,353 

5527 

353  00  393  1=1, L 

5528 

393  UM<I,J)=UM(I,J)-UH<I,L 

5529 

00  394  1= I ML, IS 

5530 

394  C(I)=C(I)-,AU(I,L) *UGH 

5531 

314  UM(J,L)=0. 

5532 

320  DO  316  1=1, IS 

5533 

IFCABS  (C(I))-. 001) 316 

5534 

316  TAU(I,J)  =  0. 

5535 

DO  396  1=1, JM 

5536 

396  VNU ( II , I) =-UM (I , J) 

5537 

DO  397  I=J,IS 

5538 

397  VNU (II , I) =0* 

5539 

LAMI (III =L AHKK 

5540 

GO  TO  370 

5541 

317  IN ( J) = I 

5542 

UM  (  J, J) =1, 

5543 

DO  398  1=1, J 

5544 

398  UM  (L, J)=UM (L,  J)  /C(I) 

5545 

DO  328  L=I,IS 

5546 

328  TAU(L, J)=C(L)/C(I) 

5547 

YC=YI NT 

5548 

KK= J 

5549 

J=JM 

5550 

IF(J-IS)  372,372,329 

5551 

329  DO  330  L=2,IS 

5552 

JM=ISP-L 

5553 

IHJ=IM ( JM+1) 

5554 

OO  330  K=1 , JM 

5555 

UGH=TAU(IMJ,K> 

5556 

DO  330  1=1, IS 

5557 

330  UM(I,K)=UM(I,K)-UGH»UM( 

5558 

DO  33  ;  1=1, IS 

5559 

337  IMI= I M  ( I ) 

5560 

IF(IMI-I)  336,333,336 

5561 

336  OO  338  <=1,IS 

5562 

V=UM(K, IMI» 

5563 

UM (K,  !MI>  =UM(K , I) 

5564 

338  UM  (K,  ])=V 

5565 

IH(I)=IM(IMI> 

5566 

IM (IMI)=IMI 

5567 

GO  TO  337 

5568 

333  Cun  flNUE 

B24A  099 
B24A  100 
B24 A  101 


B24A  104 
B24A  105 
B24A  106 
B24A  107 
B24A  108 
B24A  109 
B24 A  HO 
B24 A  111 
B24 A  112 
B24 A  113 
B24A  H4 
B24 A  115 
B24A  H6 
B24 A  117 
B24A  H8 
B24A  120 
B24A  121 
B24A  123 

B24A  124 
B24A  125 
B24A  126 
B24A  127 
B24A  128 
B24A  129 
B24 A  130 
B24A  131 
B  2  A  132 
B24A  133 
B24A  134 
824 A  135 
B24A  136 
B24A  137 
B24A  138 
B24 A  139 
B24  A  140 
B24A  141 
B24 A  142 
B24A  143 
B24A  144 
02 4 A  145 
B24A  146 
B24 A  147 
82<  A  14b 
B24A  149 
B24A  150 
B24A  151 
824  A  152 
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5569 

•ELEMENT  —  BASE  GAS  CORRESPONDENCE 

B24A 

153 

5570 

c 

INITIALIZE  RON  AND  COLUMN  SUMS 

B24A 

154 

5571 

IG=IS 

G24A 

135 

5572 

00  401  1*1, IS 

B24A 

156 

5573 

IRCI)*-1 

B24A 

157 

3574 

401 

ICCI>»-1 

B24A 

158 

5575 

C 

EVALUATE  INITIAL  SUMS 

B24A 

159 

5576 

LANO=l 

5577 

DO  402  1*1, IS 

5578 

00  403  J*1,IS 

5579 

LIM(I,J>=M0DCLAMICJ»/LAMD,2I 

5500 

IC(J>  *  TCC  J)  ♦  LIMCI, J) 

5581 

403 

IRC  I)  =  IRCI)  ♦  l. IM  (I ,  J) 

5582 

402 

LAMD=L AMD+LAMD 

5583 

C 

CHECK  FOR  ZEROS 

B24A 

167 

5584 

426 

IZ=0 

B24A 

166 

5585 

404 

DO  412  1*1, IS 

B24A 

169 

5586 

IFCICC I)-IZ)  408,405,408 

B24A 

170 

55«7 

405 

DO  406  J=1,IS 

B24A 

171 

5588 

IF  (LIN  ( J, I ) )  407,406,407 

B24A 

172 

5589 

406 

CONTINUE 

B24A 

173 

5590 

407 

IC(I)=-J 

B24A 

174 

5591 

IRC J) =-I 

B24A 

175 

5592 

DO  428  K=1,IS 

B24A 

176 

5593 

LIMU,I)  =  0 

B24A 

177 

5594 

IF  (LIH  ( J, K) )  425,427,425 

B24A 

178 

5595 

425 

IC (K) * IC  C  K  >  —  1 

B24A 

179 

5596 

LIMCJ,K)=0 

B24A 

180 

5597 

427 

IF (LIM  (K, I) 1  422,428,422 

B24A 

181 

5598 

422 

LIM (K, I)  =  0 

B24A 

182 

5599 

IRCK)=IRCK)-1 

B24A 

183 

5600 

428 

CONTINUE 

B24A 

104 

5601 

CO  TO  413 

B24A 

165 

5602 

408 

IFCIR ( I)-IZ!  412,409,412 

B24A 

186 

5603 

409 

00  410  J=1,IS 

B24A 

187 

5604 

IF (LIMCI, J)}  411,410,411 

B24A 

188 

5605 

411 

IC(J)=-I 

B24  A 

169 

5606 

IRCI) =-J 

824A 

190 

5607 

LIMCI, J)=0 

B24  A 

191 

5608 

GO  TO  4101 

B24A 

192 

5609 

410 

CONTINUE 

B24  A 

193 

5610 

4101 

DO  430  K*l, IS 

B24A 

194 

5611 

IF  (LIM (K,J) >424,429,424 

B24A 

195 

5612 

424 

IRCK)3lRCK)-l 

B24  A 

196 

5613 

LIMCK, J)=0 

B24A 

197 

5614 

429 

IF (LIMCI, K))  423,430,423 

B24A 

198 

5615 

423 

LIMCI, K)=0 

B24  A 

199 

5616 

ICCK)=ICCK)-1 

B24A 

200 

5617 

430 

CONTINUE 

e24A 

201 

5618 

GO  TO  413 

B24A 

202 

5619 

412 

CONTINUE 

B24  A 

203 

5620 

IZ*IZ+1 

B24A 

204 

5621 

GO  TO  404 

B24  A 

205 

5622 

413 

IG=IG-1 

B24  A 

206 

5623 

J=IS*1 

B24A 

207 

5624 

IFCIG)  414,414,426 

B24A 

208 

5625 

414 

F  AMOA ( IS) ®AMOA 

ENTR-MOO 

5626 

FAM09  C IS) = AHOB 

e24A 

211 
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5627 

5628 

5629 

5630 

5631 

5632 

5633 

5634 

5635 

5636 

5637 

5638 

5639 

5640 

5641 

5642 

5643 

5644 

5645 

5646 

5647 

5648 

5649 

5650 

5651 

5652 

5653 

5654 

5655 

5656 

5657 

5658 

5659 

5660 

5661 

5662 

5663 

5664 

5665 

5666 

5667 

5668 

5669 

5670 

5671 

5672 

5673 

5674 

5675 

5676 

5677 

5678 

5679 

5680 

5681 

5682 
56e3 
5684 


00  416  1=1, IS  B24A  212 

K=-IR<I>  824 A  213 

IC  CD  =F  AHOAC  K)  B24A  214 

416  IMCI) =FAM08(K)  B24A  215 

417  FORMAT C///5X9HELEMENT  ,1844) 

418  FORMAT (  5X9HBASE  SP  6C4X2A4))  B24A  219 

GO  TO  372  B24A  220 

369  00  361  1=1, IS  B24 A  221 

VNUCII,l)=0.  B24A  223 

DO  361  1=1, IS  B24A  224 

361  VNU  CII , L ) =VNU (II»L)+CtI)*UM(L,I)  B24A  225 

LANK  II)  =LAMKK 

370  KK=II  B24A  226 

11=11+1  B24A  227 

YC=  0.  B24A  228 


372  RE  AO  <KIN,  302)  (RACK)  ,RB(KK,X)  ,  RC(KK,K)  ,  RD(KK,K>,  RE<KK,K), 

1RF  CKK, K) ,  ZIGEPSIK),  TUCKK ,X) , KPHACKI , K=l, 2 ) 

IF (KPHA  (l)-KPHA (2) )  3733,  3736,3734 

3733  IF (KPHA ll) +KPHA 12) -5)  3734,3737,3734 

3734  WRITE (KOUT, 3735)  AMOA, AMOB 

3735  FORMAT  C////25H  BAD  PHASE  NUMBERING  FOR  2A4) 

STOP 

3736  IFCKPHA(l)-l)  3734,3727,3728 

3737  TUCKK, 1) =-TU (KK , 1) 

3728  FF (KK)  =  l.E+10 
GG  CKK)  =  l.E+10 
GO  TO  3729 

3727  FF(KK)= (WT/FITHOL)  **FFA 
IFMET ( KK) =2 
GG (KK)  =  -1. 

3729  IFCNFF)  3726,3449,3730 

3730  DO  3723  1=1, NFF  B24A  233 

IFCNFIA (I)-AMOA)  3723,3724,3723  B24A  234 

3724  IF  CNF IB (I)-AHOB)  3723,  3720,3723 
3720  IFCFFINID-100.)  3725,3731,3731 

3725  IF  (FFINCI) )  3480,3480,3481 

3480  GGCKK)  =  -FFINCI) 

IGMET (KK)=1 

GO  TO  3723 

3481  FF  (KK)  =  FFINCI) 

IFMET  C  KK)  =  1 

GO  TO  3723 

3731  TFCKK)=FFIN(I) 

3723  CONTINUE 

IF  (GGCKK))  3449,3449,3455 
3449  IF  (ZIGEPS(l)-lOO. >  3453,3452,3452 
3453  IF  (ZIGEPSCl))  3452,3452,3441 
3441  IF  (ZIGEPSC2))  3452,3432,3443 

3443  GGCKK)  *  ZIGEPS C 1) /SIGMA  *  CZIGEPS (2 ) / EPO VRK) **. 0795  * 

1  CWT/BASMOL) **»  25 
IGMET (KK) =3 
GO  TO  3455 

3452  IF  (KPHA(l)-l)  3456,3457,3456 

3456  GGCKK)  =  l.E+10 
GO  TO  3455 

3457  GGCKK)  =  CWT/FITGMW) **GGA 
IGMET  CKK) =2 

3455  CONTINUE 
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5685 

5686 

5687 

5688 

5689 

5690 

5691 

5692 

5693 

5694 

5695 

5696 

5697 

5698 

5699 

5700 

5701 

5702 

5703 

5704 
5  705 

5706 

5707 

5708 
57  09 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 

5733 

5734 

5735 

5736 

5737 

5738 

5739 

5740 

5741 

5742 


3726  IF(KR(3)-6)  3722,3721,3722 

3721  WRITE (KOUT ,306) (ALPT(K),JAT(K),  K*l,7>,  SORCE, AMCA,AM08 
HRITE(KOUT,3020>  (RA  (K) ,  RB (KK»K) ,  RC(KK,K) ,  RO(KK,K) ,  RE<KK,K>, 

1RF(KK,K) , ZIGEPS (K) , TU (KK,K ) ,KPHA(K> ,K=i,2) 

3722  FAMOA  UK)  SAMOA 
FAMOBI KK) sAMOB 
WTM(KK) *WT 

RB  (KK, 1)  =  RB (KK, 1)  ♦  RA(1) 

RB(KK» 2)  *  R8(KX,2)  *  RAC2) 

N*N*i 

IF  (KPHA Cl)-1)  3734, 362,  364 
364  IFC (KK) *-l 
VNCKK  )=0. 

Y(KK)  =  YC 

IF (TF ( KK) -TFMAX)  342,342,371 
371  TFMAX=TF(KK) 

GO  TO  342 
362  IFC  (KK) =0 
VN(KK)=VINT 
Y (KK5  * TINT 
GO  TO  342 

399  WPITE  (KOUT, 417)  (ATA(I) , ATB(I) ,ATC(D ,1*1, IS) 

WRITE  (KOUT, 418)  (IC(I) ,IM(I> ,1=1, IS) 

5001  WRITE (KOUT, 110)  SIGMA, EPOVRK ,BASMOL 

110  FORMAT (///3X30HMOLECULAR  TRAKSPORT  PR0PERTIES/5X75HVISC0SITY  . 

1  BUOOENBERG  -  WILKE  MIXTURE  FORMULA  WITH  MU(I>  CALCULATED  ON/21X34 
2HTHE  BASIS  OF  0(1,1)  *  08AR/6(I)**2//5X80HTHERMAL  CONDUCTIVITY  ... 
3..  MASON  -  SAXENA  MIXTURE  FORMULA  WITH  EUCKEN  CORRECTION/ 75 X73HD IF 

4 FUSION  COEFFICIENTS .  0(1, J)  *  DBAR/ (F  (I) *F C J> )  WITH  DBAR  BASE 

5D  ON/21X8HSIGMA  *  ,F8.4,11H,  EPOVRK  *  ,F9.4,13H,  AND  HREF  *  ,F8.4> 

WRITE  (KOUT, 111)  FITMOL,FF A ,FITGMW,GGA 

111  FORMAT (//7X16HMETHOOS  EMPLCYED//8X63H0  CONDENSED  PHASE,  VALUES  FOR 
1  F (I)  AND  G(I)  SET  EQUAL  TO  1.E+10//8X42HI  VALUES  FOR  FCI)  (OR  G(I 


B24A  243 


624A  247 
B24A  248 
624A  251 


B24A  254 

B24A  267 
B24A  268 
B24A  269 
B24A  270 
B24A  271 
B24A  272 
B24A  273 
B24A  274 
624A  275 
B24A  276 


2))  INPUT  DIRECTLY//8X71H2  VALUES  FOR  F(I)  I  G (I) I  CALCULATED  BY 
3  F (I)  =  (H(I)/FITMOD**FFA  AWO/1 0X65HG ( I)  '  (I) /FITGMW)  **GGA  WHER 

4E  M (I)  IS  SPECIES  MOLECULAR  HEIGHT, /10X, 5  (OL  *  ,F8.4,12H,  AND 
5FF A  *  , F6.4, 11H,  FITGMW  *  F8.4,12H,  AND  GG<*  *  ,F6.4) 

WRITE  (KOUT, 112) 

112  FORMAT (/8X79H3  VALUES  FOR  G(I>  CALCULATED  BY  G(I>  *  SORT (DBAR/0( I, 

II))  *  (SIGMA (I) /SIGMA)  /10X73H*  (EPS (I) /EPOVRK)  **0.0795  *  (M(I 
2)/MREF)  **0.25  WHERE  SIGMA  (I)  AND  EPS  (D/10X33HARE  GIVEN  WITH  THER 
3M00YNAMIC  JATA//7X73HSPECI ES  F(I>  METHOD  G(I)  METHOD  SPECI 

4ES  F ( I)  METHOD  G(I)  METHOD) 

WRITE  (KOUT, 11 3) ((FAMOA (KK) ,FAMOB(KK) ,FF (KK) , IFMET (KK) ,GG ( KK) , IGME 
IT (KK) ) , <K*1,N) 

113  FORMAT (7X,2A4, 1X,F5.3,3X,I1,3X,F5.3,3X,I1,10X,2A4,1X,F5.3,3X,I1,3X 
1  ,F5.  3, 3X,  ID 

WRITE  (KOUT, 419) 

419  FORMAT  (//3X61HSTAGNATI0N  SOLUTION  FOLLOWEO  BY  BOUNOARY-LA YER  EDGE 
1  EXPANSION/) 

DO  375  L=l»7 
00  375  1*1, IS 
TQ  <I,L ) *0 . 

DO  375  K»1,IS 

37F  fQ(I,L>«TO(I,L)*UM (I,K)*TK(K,L) 

IF(KR(2)-5)  3752,3752,3751 

3751  CONTINUE 
240  FORMAT (8F10.6) 


B24A  278 
B24A  279 
B24A  280 
B24A  281 
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5743 

5744 

5745 

5746 

5747 

5748 

5749 

5750 

5751 

5752 

5753 

5754 

5755 

5756 
5r57 

5758 

5759 

5760 

5761 

5762 

5763 
5  764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 
5  7711 
577  ) 

5780 

5781 

5782 

5783 

5784 

5785 

5786 

5787 

5788 

5789 

5790 

5791 

5792 

5793 

5794 

5795 

5796 

5797 

5798 

5799 

5800 


THER1340 

TH6R1350 

7H6R1370 

THER1380 

THER1390 

THER1400 

TMER1410 


THER1460 


THERl 

HRITE ( KOUT i 275 ) 

HRITE( KOUT, 280) 

DO  225  1=1, IS 

225  HRITE(K0UT,285)FAN0A(I),FAMCB(I), (RHU(I,M> ,M*1,HT) 

HRITE l KOUT, 290 ) 

HRITE (KOUT, 280) 

OO  230  1=1, IS 

230  HRITE (KOUT, 285 ) FAHOA < I) , FA  HOB  II), <PHU(I,M) ,H=1,MT) 

HRITE ( KCUT , 295 ) 

HRITE (KOUT, 200) (FKF(M) ,M=1,HT) 

HRITE ( KOUT, 205 ) 

HRITE (KOUT, 210) (EAK(M) ,M*1,HT) 

HRITE (KOUT, 215) 

HRITE ( KOUT, 220 ) (EXK(M) ,H*i,NT) 

3752  VN(N*1)=0. 

IFC(N*1)=-1 

HTM(N*1>*-1. 

F  AMOA (N  +  l ) =CHAR 
FANOB(N+l)*8LANK 
TF  <NM)*500G0. 

IF (0U30 . GT . 0. )  TF(NM)  *  OU68 


245 

250 

255 

256 


260 

265 

270 

275 

280 

285 

290 

295 

200 

205 

210 

215 

220 


FORMAT  (213) 

FORMAT (3E10.4) 

READ ( KIN, 245) HT 
IF(MT)  3752,3752,256 
00  260  M=1,MT 
READ (K IN, 250) F KF  (M 

DCtnfrTu.  uni  /  omii/ 


uu  cou  n-i,ni 

READ  (KIN,  250)  FKF  (M),EA!((M)  ,EXK(M) 
READ (KIN, 240) (RMU(I,M)  ,1=1, IS) 

READ (  )IN , 240) (PMU(I,M)  ,1*1, IS) 
FORMAT  C//3X,7HKINETICI 

(3x,HHREACTI0N - ,17,9110) 

(/3X,8HREACTANT) 

(5X,12HC0 EFFICIENTS/) 
(6X,2A4,F8.2,9F10.2) 

«/3X,7H PRODUCT) 

(/ 3X, 12HPRE-EXP0NENT) 
(5X,6HFACTOR,4X,10E10»3) 
(/3X,10HACTIVATION) 
(5X,6HEMERGY,4X,10E10*3) 
(/3X, 8HRE ACTION) 

lev  eunonro  cw  4  a  it 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


FORMAT  I/3X, 8HREACTI0N) 

FORMAT  (5X,5H0R0ER.5X, 10E10.3) 
HRITE  <  KOUT, 265 ) 

UATTP  iwAiif  At  3  44  U_  i  UT'i 


return 

ENO  824 A  283 

CB25A  B25 A  001 

SUBROUTINE  PROPS  B25A  002 

INTEGER  F AMOA, F AMOB  B25A  004 

DIMENSION  VK(10) ,PA(12,12) ,PV<11,12)  075A  005 

COMMON  /BLQCOM/FAMOA (  71),FAM0S(  71), N  ,FR(  71,15) , H (3 ) , UEF < 10)  825 A  5 

1  ,LEFS(10),PIEASE,LEFH(19) ,12,13  ENTR-MOO 

CONMON/EOGCOM/  PS<40,  1),PTE(40,  1),SP£(  8,40,  1>,0UE$,B2$A  7 

1UE (40) ,RHOE(40) , VMUE (4 0) , T E (4 0) ,UEOGE,OUEOCE,D2UEOG,VMHE, CGE,C90  ENTR-MOO 

2  ,DSIP(40) ,IOSIP,TTVC,TVCC  (40)  325A  9 

COMMON  /EQPCOM/  RB (  7l,2),RC(  7l,2),RD(  7l,2),RE(  7l,2),RF(  71,2),325A  10 

1  TU  (  71,2)  ,FF(  71)  ,FFA,IFC  (  71)  ,  ATA  U0>  ,  ATB  (101 ,  ATCUO)  ,N  AT  ( 1 0 )  ,  B25A  11 

2  KATC10) ,IR(10) ,IS,KR(10),LAHI(  71) ,P, T,TK (10,  7),VNC  7D ,  e25A  12 

3  VNU  (  71,10), ITFF,  KR2,HCH,NCV,HM,HTM(  7l),Y(  7D, YH(  7l),GG(  71)  825A  13 
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4  , TQC10 ,  7),EP0VRK,S!SNA,BASN0l  B25  A  14 

COMMON  /EaTCON/SIP,MXP,El,ENL,FLIO,CPF,IRE,IER,AA,ITS,lN,Il,IT,  B25A  15 

1  MODE, HHELT, SMELT, TMAX,TMIN, MELT, SUNN, SUML, NS, MSS, Bl,ISP2,ISP0,  B25A  lb 

2  ISP,<iU,SVA,SV3,SVC,SVO,SUHCyFFF,CMF,£P,RV,XFCJC,NTS,MTL,JC,MG,  825A  17 


3  CPG»TTNIN,TTNAX»L7»L8,XBC  11)  ,EB(  191  ,EBLClt)  ,  A (16, lb) , BClb) , 


ENTR-MOO 


4  XP<  71),ALPC10) ,FNUC101,GAMHC10>,GAHFC10) ,SLAMC10> ,DVC  71),RVS,  B25  A  IB 

5  CPC  71), Ml  71), SBC  7l),TCC  7l),VLNKt  7l),EC  7D  ,PNUSC  10) ,  825A  20 

6  3CC10) ,BLNKC10> »8YClO),I8CC10)»BEC10),JJC  4)  825A  21 

COMMON  /XMTCON/KKRC20)  , KIN, KOUT, HATH, NAT2I,NAT1J,NAT2J, META,  II,  B25A  22 

lISS, NS, XTT,NTXME, MSP, NSPM1, NAM,  NLEQ,NNLEC?,NRNL, HITS, KAPPA,  C8AR,  825*  23 

2CASE ClE) ,8BCI) ,  MME, NON, KO(ll), ITEM, NITEM, Kftl7, NBT, NBT2,  XOENT,  825A  24 

3  KR9C40) , KAUXO , JTXME, JSPEC  «M0C3)  625A  29 

COMMON  /PRPCO  /PRC IS) , TTC15) ,RM0C13) , SCC15) ,CAPC  CIS) ,QRCl5) ,MNCl5) B25A  26 
1 , CPBAR  C 15) ,VMN  CIS) ,PMIKC15,  I) ,ORMOM, ORHOK C  6),2KC  8),0ZKMC  •)  ,  0B25A  27 

2MU3XC  8) , 0MU4K  C  8),0TKC  8) ,0PMXKMC  8),OPRK(  8),0SCXC  8),OCAPC<C  8)  825 A  28 
3 , OMTILKC  8) ,OQRKC  8),0CPBKC  8),0CPTX(  8I.0MU12KC  8),0ZKKI  6,  8)  825 A  29 

4 , OPHIKK C  8,  8) ,  OMU4H,OHU3H,OMTXLH,VMU12,CT,CTR,CPTXL,HTIl  B25A  38 

5, VHU3,0TH,0CAPCH,DPRM,0SCH,CQRN,0CPBH,0CPTH,0HU12H, VMU CIS ) ,  RHOP  B25A  31 
6C1S),PMIKPC19)  ,HP,TP,ZKPI  8) ,¥NU3P,VNU4P,HTIL P, CRMO Cl4) ,GMR ClS)  825A  32 

COMMON /NALCOM/FMC40,  1>,TMC40,  1),HM(40,  1),SPNC  8,40,  1)  82SA  33 

1 ,RMOVM  C40,  1) , FLUX J  C  3,48,  1) , XHM, ITN, XFN, 1SPM ,IRH0VM,  IFLUX J  e25A  34 

OIMENSION  PRPC1) 

EQUIVALENCE  CPRP Cl) ,PV Cl) ) 

IFCII-l)  310,300,310  B29A  032 

300  IFCKKRC14)-1Q>  310,302,302  B25A  033 

302  KKRC14)»KKRC14)-10  B25A  034 

310  IFCT-300.001)  312,312,320  B25A  035 

312  XKRC14) *KKRC14) +10  825A  036 

320  NM*AA/P 

ISVsIS  825 A  038 

IS*NSP  B25A  039 

ISVP*ISV*l  B25 A  040 

543  ISV2*I  SV+-2 

CT*-0.  5  625*  041 

ISH=IS-1  825A  042 

ISP=ISM  B25A  043 

ISP2=IS*2  B25A  044 

TT  til) »T*1.8  B25 A  046 

RH0CII)=a*/ll.3l46»T) 

CTR*CT*1 .9876  B25A  049 

;  FORM  NECESSARY  SUMMATIONS  B25A  051 

PMU2*  0.  B25A  052 

CPTIL*  0 .  B25A  053 

MTG*0. 

MG»0. 

CPG«0. 

HTIL-O.  B25A  ;54 

PMU1*0.  825 A  055 

TMU3* 0 .  625 A  056 

I«i 

00  451  IK«1,N 

IF  CKAT  CISV)-99)  544,541,544  ENTR-MOO 

541  IFCIK-ISV)  544,451,542 

542  M(I)»H<n-VNU<I,I$V)*MtISV> 

MTMCI)  «MTNCI)-VNUCI,ISV)*MTMISV> 

cp(i)*cpci)-vnuci,isv) *cpc :sv> 

544  IFCIFCCD)  451,4550,451 

4550  PMU1«PMU1*VNCI)*FF  (I)  6254  06Q 


829A  32 

825A  33 

e25A  34 


B25A  032 
825 A  033 
B25A  034 
B25A  035 
B25A  036 

B25 A  038 
B25A  039 
B25A  040 

625A  041 
B25A  042 
B25A  043 
B25A  044 
825 A  046 

B25 A  049 
B25A  051 
B25A  052 
825A  053 


8254  ;54 
B25A  055 
625 A  056 


ENTR-MOO 
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5659 

651  i«m 

5860 

VHU1*PHU1/P 

B25A  062 

5661 

AH'J5»0. 

625A  063 

5662 

PHU6«0. 

B25A  066 

5663 

MOZ* 1.385 

B25A  065 

5666 

M06  *  0. 286*602 

5665 

I  ■  1 

5866 

00  656  IK  «  1. N 

5867 

If (IK-ISI  6518,6510,6509 

ENTR-HOO 

5668 

6510  VKtIMO. 

entr-hoo 

5669 

ZK(I>*0. 

ENTR-HOO 

5670 

6509  If (IfC<I}.NC.04  CO  TO  656 

ENTR-HOO 

5671 

AST  AN  =  1.13  *  GCU)/FfCI>  •  GG(I)/ff(I) 

5872 

1(02*1  •  2*  ASTAN/PNU1 

5673 

M07*NCZ/PHU1*N02 

5676 

H05*.32*ASTAN/PHU1 

5875 

MO0*MO6/PNU1-NO5 

5876 

VA»VH(X) Iff (I) 

B25A  076 

5677 

V8*VA*  NTH (I) 

8253  0  75 

5873 

VC=VN(I>  *Ffai 

B25A  076 

5879 

IF(IK-IS)  6511,6511,6566 

ENTR-HOO 

5680 

6511  VK ( 1 1  * VN (II 

B25A  081 

5681 

652  ZK(I)*VA 

825 A  082 

5662 

GO  TO  657 

B25A  061 

5663 

6560  If(IK-ISV)  6562,6552,656 

ENTR-HOD 

# 

5866 

6562  IF(KAT(I1 .NC.99)  GO  TO  657 

ENTR-HOO 

5665 

NTM(I)*0. 

ENTR-HOO 

5366 

CP(I>*0. 

5887 

H(I)*0. 

. 

5666 

GO  TO  656 

5889 

656  00  653  K*1,ISH 

ENTR-HOO 

5690 

VK (K) * VK  <  *>  +  VN (1 1 *¥NU ( I ,K) 

B25A  087 

5891 

653  ZK(K)*ZK(KJ ♦VA*VNU ( I , K) 

B25 A  0  86 

5692 

657  PH02*PMU2*V8 

B25A  069 

5893 

THU3=THU3* VA 

B25 A  090 

5696 

CPTIL* VA*CP(I)  ♦  CPTR 

B25A  091 

5695 

HTR*HTR*VA*M(I) 

825A  092 

5896 

NTG*MTG*VN(I>*MTH(IJ 

5897 

MG«MG*VN(I)*M(I) 

5898 

CPG-CPG+VN(R*CP(I> 

5899 

AHU5*AHU5*VB/(V0Z-VC*N07I 

5900 

PHU6=PHUfe*VA/ ( W06- VC*V08» 

5901 

656  I * I ♦ 1 

5  9  0? 

VHU5* AHU5/MT6 

5903 

VHU6* ( PNU6  *CPTR/1.9M9-2.5MHUJI7P 

875 A  097 

5906 

VHU2*PMU2/P 

B25A  096 

5995 

VMU3*  TNU3/P9K.’? 

B?5  A  099 

5906 

CPTR  *  CPTR  /  PHU2 

P90P1110 

5907 

MY  R  *  HTR  /  PHU2  •  1.6 

PBOP1120 

5908 

mGbHG/MTG 

5909 

cpg*cpg/mtc 

5910 

MM" k7G/P 

* 

5911 

?K3  *  l.o 

■'ROP102C 

5912 

VKS*1. 0 

5913 

OC  95  K* 1 » I SH 

PRQP1030 

5916 

VK (K>= VK(K>/MTC*MTN(K) 

5913 

95  2*00  »  ZK(K)  /  P*U2  »  *TH<lt» 

pROPiosa 

5  918 

0«€GA* t.0?/(T/CPOVPKJ  "*0.159 
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591? 

OSAR  >  2. 82661 E -6/ (SIC HA  *  SIGN*)  •T/P*SQRT(T/8ASM0l)/0HEGA 

5918 

VHUIIX  MRHOfIX)  *09 AR  •VNU97VNU1 

B25A 

107 

5919 

IF(KR(9))  661,661,660 

825A 

198 

5926 

660 

RHOC ( I SS) *RMO (II) 

e25A 

109 

5921 

vnucussirtmu  (in 

B29A 

110 

5922 

VNNE-NH 

825A 

111 

592J 

IS-XSV 

825  A 

112 

5929 

RETURN 

B25A 

113 

5925 

661 

CONTI  IUE 

B25A 

116 

5921 

CAPCIIX)«RHO(ID/RHO€(XSS) *VNU(II > /VHUE(ISS) 

02  5  A 

115 

5927 

VNMCIII  »NN 

B25A 

116 

54<8 

VLAM«RHO(XI)*OBAR/NH*VHU6/VHUl*I.9869 

825  A 

117 

5929 

SC (XI) *VNUS/VNU2*NN 

B25A 

118 

5930 

IF  (KKR(l6)-i)  6613,6612,6611 

825  A 

122 

5931 

6611 

FFK2»NM/VHU2 

B25A 

123 

5932 

VHU1*FFK2 

825  A 

126 

5933 

¥HU3»1./NN 

825A 

125 

5938 

CPTIL*CPC 

5935 

5936 

DO  6616  K»1,ISH 

825  A 

128 

5937 

6616 

ZK(K)-VK(»> 

825A 

129 

5936 

6612 

CT*0. 

825  A 

130  ] 

5939 

CTR«0. 

825  A 

131 

5960 

6613 

VHU12* VNUi*VHU2 

825  A 

132 

• 

5961 

IF(KKR(20n  9006,9005,9006 

B25A 

133 

5962 

9006 

WRITE  OCOUT, 900  6) ONEGA, OIAR,  VLAN, SC (IX) ,FR (II ) , VNUi ,  VNU2 , VNU3 , 

T  825  A 

136 

5963 

IT (ID  v VNU5,VWU6,rF (1)  ,FF(.I) ,FF(J),CPTIl,HTIl, (  VK  (I) ,NTH(I)  ,2K(I) 

,B25A 

135  I 

5966 

2l*i,ism,vmmi> 

B25A 

13f  1 

• 

5965 

9005 

CONTINUE 

825A 

137 

5966 

IF (KR (6) )  5000,5360,5360 

825  A 

139 

5967 

5000 

CPSA«(II)*CPO 

5968 

PR(II) *CPG/VWU6* VWU5/1 . 9069*NH 

5969 

NPR*ISP2 

5950 

DO  501  1*1, NPR 

5951 

OO  501  J*1,ISV2 

5952 

501 

PA(I,J>*«. 

825* 

162 

5953 

PA  <3, 1 ) *PNU2*CPTIL *T 

e25A 

163 

5956 

OO  502  K*3,ISV2 

ENTR- 

HOO 

5955 

IF  (KKR ( 16)- 1 )  5016,5016,5017 

825A 

•65 

5956 

5016 

FF«*FF(K-2) 

825  A 

16* 

5957 

5017 

IF  ( IFC  (<“2) )  502,5011,  5016 

ENTR- 

*00 

5958 

5011 

PA  (1,K) *VN(K»2) /FFK2 

825A 

168 

5959 

GO  TO  5013 

825* 

169 

5960 

5016 

PA  ( 1 , K) *1 ./FFK2 

5961 

5013 

PA(2,<)*5»*<l,<)*KTH<K-2) 

825* 

154 

5962 

PA  (3,K)*PA(1,K) •M(K-2) 

225  A 

1« 

5963 

IF(K-ISP) 5010,5010,5019 

i 

5966 

5018 

PA(K*1,K)*PA(1,K) 

5965 

5019 

CONTINUE 

5  966 

502 

CONTINUE 

825  A 

157 

596? 

J=ISVP 

' 

596.9 

IF  (ISVP.CT.M)  CO  TO  5079 

5969 

OO  507  IJ«ISVP,N 

5923 

XFUFCO))  507,5021,50? 

825* 

159 

5971 

5821 

P*PU)*V1«U»/FF*2 

l 

59?  2 

IF  <KJOM16)-i>  5022, 5822,5823 

P25A 

1*1 

5971 

5822 

MP«I)*VNU>/FF(J) 

5976 

5323 

PRPI2)*PRP(1>*6  fN( J) 

L - 
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5975 

PRP(3>*PRP(i)*K(J> 

5976 

00  5026  I*6,ISP2 

5977 

5026 

PRPCI)»PRP(l)*VNU£J,I-3> 

5976 

00  505  I«i,WPR 

5979 

PA  (1, 11 aPA(I»l>  ~TC ( J)  *PRP <  X) 

5960 

00  505  MltlSf 

5961 

IMIFCOO)  506*506.505 

5962 

5  06 

PA<XfK»2>*P*<!'K*2»*P*P<I>*VNU<J,K> 

5943 

505 

CONTINUE 

596% 

507 

JaJ  +  i 

5945 

5070 

VA> AAS  WTH(IS) 

5966 

00  511  I*1,ISV2 

5947 

A  (I *  1) a A (X,1)*AA/1«8 

825  A 

182 

5906 

511 

A(I,ISP2)«A1I,ISP2) *»A 

325A 

183 

5909 

00  512  U«3,ISP 

825  A 

186 

5990 

VA*AA/HTH<J-2> 

825  A 

185 

5991 

DO  512  I»1,ISV2 

5992 

512 

A(1,J)*A,!,J>*VA-A 1I,ISP2> 

825A 

187 

5993 

C 

FORM  PA, A  PPOOUCT  ANO  TRANSPOSE  (TO  ESTABLISH  EQUIVALENCE 

825  A 

183 

599<. 

OO  521  1*1, NPR 

5995 

00  521  J*l,isr 

825A 

190 

5996 

PV(J,I)«PA(:,1)*A(1,J) 

825* 

191 

5997 

CO  521  L>3,ISV2 

5998 

521 

PV(J,I)*PV (J, 1)6  PA (I,L)*A(L,J) 

325  A 

193 

5999 

OO  533  K*1,ISP 

825  A 

196 

6000 

PV<K„l)*(PV<Kf  1>-VNU3*PV(K,2))/PNU2 

825A 

195 

6601 

PV(K,,3)*(PY(«(,3)*l.i-HTlL*PV<IC,2>17PHU2 

925* 

196 

6002 

00  531  J*l,ISH 

325* 

197 

6003 

531 

PVCK, J*3)a(PW(K, J*3»*NTH(J»-ZK(J»*PVIK,2)»/PHU2 

825  A 

198 

6006 

533 

PV(K,2)*CT*A<1,K1*PV(I£,2)/PNU2 

825ft 

199 

(005 

P¥(2,2)»PY(2,2)-1./P 

825  A 

200 

6006 

C 

POOR  HAN-S  EQUIVALENCE 

325* 

201 

6007 

CiRlII)  =0. 

B25* 

2  02 

6  C  08 

QCAPCH*CAPC<III  M2.  *A<  2,  11-0.36 1MA(1,  1)1 

025* 

203 

6009 

OPRM*0. 

825ft 

206 

6010 

QSCM=fl, 

325* 

235 

6011 

OQRW=0. 

825A 

206 

(012 

OCPBNaO. 

8254 

207 

6013 

OCPTHafl . 

825* 

208 

(  016 

OHU12M»0. 

8254 

209 

6  9  i5 

QRHOMMMO(II)  *  U  (2, 1»-A(l,  J)> 

3251 

210 

6016 

OTttaY  *  A  ( 1 , 1)  *  i  •  A 

825* 

211 

6017 

ONU3M»»*V  (1,1) 

8254 

212 

101* 

0"U6H*PV(1,2) 

#254 

213 

6019 

0NfILN«P¥ti,3) 

32  54 

216 

6020 

IF  {*aPNl)5368, 5368,5329 

6021 

5323 

00  536  K-l.ISN 

6022 

PNH  (  X  I  ,R )  ■•• 

2254 

216 

6023 

0PHIKK(K)*8. 

®254 

217 

6  026 

OR*CKnO**WCClI)  VA  C2,K»2J  -1  (1,K*2>  ) 

9254 

21* 

6  C  25 

OI»KICt*)=0. 

P?5  A 

21^ 

6  0  26 

osc*nr>  *6. 

$25* 

??S 

*527 

??5i 

6  8  20 

OCAPCAfOsCAPC  ft  V  *  <2.  «A«2,»*21-0..161*A(l,**2n 

S?5* 

2.  * 

6529 

CCR*(*lc5. 

Pi5* 

223 

(  C33 

•3C»9«0*1 »}. 

925* 

226 

*63 1 

£CPTK <K>aJ. 

5»?5* 

225 

(332 

C*U12*  Mt)  *8. 

8251 

22* 
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6033 

OMU3KU)*PYUC*2,l> 

B25A 

227 

6036 

0NU6<(KI*PV(K*2,2> 

8254 

220 

6039 

DHTIIXIK>*PV<K,2,3> 

e25A 

229 

60  ’> 

0ZKH(K>»1»m,K*3> 

B25A 

23# 

6037 

00  932  1*1, ISM 

825  A 

231 

6030 

DPHIKK (I , K)*0, 

825A 

232 

6039 

932 

OZKK(I,KI*RVU*2,IOI 

825  A 

233 

6060 

034 

CONTI NUC 

825A 

236 

6061 

9140 

l!M*N  ♦!(*<•) 

6062 

00  939  1*1, LIN 

6063 

IMKRUH  9343 f  9344  #9344 

6066 

9363 

If  (NOOdfCm,  3»»  939#  9346  #939 

6069 

9944 

FR<I,II)*VN<I>/# 

6666 

IFtVNlin  9361,9341,93  5 

829* 

237 

6067 

9361 

IfdFCdn  935,9342,939 

825A 

230 

6060 

9342 

Ft<I,II)-UE-30 

825A 

219 

6069 

939 

continue 

625A 

240 

6090 

IF  (KR(61)  930,930,5350 

6001 

$390 

IF  <K*(1>M)  536, 53*1, 5360 

6092 

9361 

Y(JC)*0. 

6093 

936 

HN<IS3,ITT)«HC*i.O 

6006 

9360 

00  537  K*2, IS 

600$ 

937 

SPNU-1,ISS,ITT)*¥AU-1> 

8254 

244 

6096 

RHOVN(ISS,ITT) *-RV 

6097 

930 

CONTINUE 

625  A 

246 

6  090 

IF(aKR(20))  9601,9002,9061 

825A 

267 

6099 

4001 

WRITE IKOUT, 9006) ORU3H,DNU3K,ONU6H,ORU4X,CNTlLM,OHTItK,OTH,OTX, 

tMhO  925  A 

260 

6  060 

1M,DRH0X,DZKH,0ZKK,HG,VK 

6061 

9002 

CONTINUE 

825  A 

290 

6062 

IS*IS¥ 

825  A 

251 

606] 

9006 

FORMAT (/(1X1R10E12. 5)) 

1066 

ISP-ISYP 

6069 

ISP2*IS*2 

6066 

IF  f II- 11  $91,539,551 

6067 

939 

00  540  1*1, IS 

6060 

940 

ru*ii*YCi» 

6969 

991 

RETURN 

6070 

end 

P25A 

293 

6071 

C0266 

0264 

001 

0072 

SUBROUTINE  TAYLOR  IO,FN,F,P) 

8J6A 

902 

607] 

DIMENSION  FtlU)  ,M1I,P<1) 

8264 

•  03 

6076 

COMMON/ 1 NT CON/  XR 1 20) , RIN, OOUT ,N0T 1 1, MAT *1 , MA Yl J,MA? 2J , HE T A  ,  1 

0264 

006 

C  379 

02*0*0 

826A 

•  09 

6376 

IF  t#‘R  ( 1 0)  -  1)  1,2,4 

6077 

2 

IFU-NETA)  6,1,6 

6070 

4 

F0*8. 

6073 

P<l)*f <  <FN<3>/6.-F0/26.l*0-FI2)/2.»*0*F<ll >*0 

*:»» 

•  09 

6000 

P<2)*<  <  <FO/]#.-FM<])/0.)*O*Ff2)/3.)  •0-F(li  /2.  )  *02 

72*4 

810 

0001 

PI3)*I. 

#Z6t 

m 

6002 

7 (6)>( { (FM(3) /28.-F0/72.)*e-Ff2)/*,)*0«ril )/$.) »02*O-P«3> 

#20* 

01? 

690] 

to  TO  3 

024* 

8U 

6006 

1 

F3»FtJ)-FW<X) 

#26* 

S 16 

6609 

Pll)*tf{Ff])/6«  -F'O  /24.  )  *8-»  F  <?)/?, T*0* Fill) *5 

#26* 

•  15 

48*6 

PT2)*»  HF0/38..F  fjl/f.  »*0«F  <2 1/3.1  *©-/ <  1>  /?.)  *0? 

#26* 

516 

6007 

RT6)*-; MF0/2S2.-F* 31/72. ) *3*F  <21/30. »*0-F <11 /26.)*U?*D 

#26* 

SI# 

6000 

P<J)«<  MF< J»/2«.-FO/72.)aO-F<2J/0.)*O*F{l)/|. )*Q2*S-Pt6) 

526* 

310 

£  009 

3 

CONTINUE 

#26i 

519 

6893 

RETD*': 

52? 
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END  B26A  021 

CB27A  B27 A  001 

SUBROUTINE  UNMAT  B27A  002 

COMMON/£fACON/ETA(15),0£TA<15),DSQ{t4) ,DCU (14) , B1 (14) , 82 ( 14 )  827 A  3 

1, LAR(l53),8Al(43»ia)  ,BA2(30,15)  B27A  4 

COMMON/INTCOM/  KR (20)  ,  KIN,  KCUT,M ATH,  MAT2I  ,MAT1  J,MAT2J,NE TA,  I,  IS ,  NB27 A  5 

IS , IT, NT IHE,NSP,  NSPMl,i(AM,NLEQ,NNLEQ»NRNL»  ITS, KAPPA ,CBAR, CASE ( 15)  B27A  6 

2 ,  B ( 8)  ,  MWE, NON, KQ(10) , ITEM, NITEM,KR17,NBT,NBT2,IOENT,KR9(4o)  B27A  7 

3»<AUXC» JTIME, JSPEG,M0(3)  B27A  8 

DO  104  1=2 , NET  A  B27A  008 

DETf  I-l)=ETA;i)-ETA(I-l)  B27A  009 

DSQ(I-l)=OETA(I-i)*OETA(I-l)  e27A  010 

B1(I-1)=B(3)*DSQ(I-1)  b?7A  0U 

B2(I-1)=2. *81(1-1)  B27 A  012 

104  OCU(I-i)=OETA(I-l)*DSQ(I-i)  B27A  013 

MATlI=3*NETA-2  B27A  014 

MAT2I=2  *  NETA 
MAT 1J=  NET  A+3 
MAT2J=  NETA 
00  108  1=1, MAT  2 1 


DO  108  -J=1,MA12J 
108  BA2(1,J)*0. 

DO  105  1  =  1, MATH 
DO  105  J=1,MAT1J 
105  BAl (I , J) =0 , 

BAlli. J)=i. 

BA1(1,3>=  DbQ( 1) /2. 
BAl (NET  A, 3)  =  DETA (1/ 
BA1(MAT2I-1,3)=1. 
BA2(2, i )  =  OET  All) 
BA2(NETA+1,1)=1. 
J=NETA 


B27A  017 
327 A  018 
B27A  0 lf> 
027 A  020 


00  106  1=2, NETA  B27A  022 

BAHI-l  ,I  +  2)“0ETA(I-1) 

BAl (J, 1  +  2  )=1. 

BAi(J,I+3)=-l. 

BA2(I,I)=i. 

IF(I-NETA)  103,1 06  }i'>. 


103  B A2 (1,1+1) =-l . 

106  J=J+i 

9060  FORMAT  <  2X1P12E 10.3) 

9C64  FORMAT  (2X37HLINEAR  MATRIX  FCR  MOMENTUM  EQUATIONS, 13, 2H  .<13, 
127H,  BEFORE  AND  AFTER  SOLUTION) 

9C79  FORMAT (2X44HLINEAR  MATRIX  FCR  MASS  AND  ENERGY  EQUATIONS, 1 3, 2H 
127H,  BEFORE  ANO  AFTER  SOLUTION) 

IF (KR ( 15) -1)  9032,9062,5061 

9061  WRITE  (  KOUT  ,9064)  MATH,  MAT  1 J 
DO  9063  1=1, MAT1I 

90  6  3  WRITE  (KO'JT, 906  0)  (BAl  (I  ,  J)  ,  J  =  1  ,MAT1J> 

9062  DO  107  LI=2,MAT1J 

■  07  CALL  MATS1 (BAl (1,LI) ) 

IF  '.KR  ( 15)  -1)  9  069,  9  069 ,9066 

9066  UC  9067  1  =  1, MATH 

9067  WRITE(K0UT,9Q60)  (B A  1 ( I , J) , J  =  1 , MATi J) 

WRITE (KOUT, 9079)  M AT2I ,MAT  2 J 

DO  9068  1  =  1, MAT  21 

9069  WRITE  (KOUT, 9060)  (8A2(I,J)  ,  ,J=1 ,  MAT2J) 

9069  DO  110  1- 1  =  i,  MAT  2  J 


B27A  031 
B27A  032 
B27A  033 
XI3, R27A  034 
B27 A  035 
B27 A  036 
P27A  037 
B27  A  038 
B27A  039 


B27A  055 
D27 A  056 

I"  2  7  A  G  "i 

B27 A  058 
B2 7 A  059 
B27 A  060 


178 


AFWL-TR-69-114,  Vcl  I  (Supp.) 


6149 

110  CALL  MATS2(BA2(1,LI) 1 

6150 

IF (KR ( 15) -1)  9072,9072,9071 

B27  A  063 

6151 

9Q71  DO  9073  I-1,HAT2I 

B27A  064 

6152 

9073  WRITE(KOUT,9060>  (8 A 2 Cl, J) , J=1,MAT2J) 

B27 A  065 

6153 

9072  NLEQ=HAT1I+NSP*MAT2I 

B27A  j66 

6154 

NNLEQ=MATlJ+NSP*MAT2J 

B27A  067 

6155 

NANsNNLEQ-CNSPHi+2) 

B27A  068 

6156 

NRNL=NSP«-i 

B27A  069 

6157 

LAR(NAM*1)*2 

6158 

J=2*MAT1J 

6159 

LL=NAM*2 

6160 

DO  111  L=LL,NMLEQ 

6161 

LARCL) »J 

6162 

111  J=J+MAT2J 

6163 

L-NAM+1 

6164 

via  0 

6165 

DO  113  1=1, NAM 

6166 

J=J+1 

6167 

IP (LAR  (L)-J)  113,112,113 

6168 

112  L  =  L  +  1 

6169 

J  =  J+i 

6170 

113  LAR (I) =J 

6171 

IF  (KR  < 15) )  9901,9902,9901 

B27A  085 

61'  2 

9901  CONTINUE 

62  7 A  0  86 

61/3 

9999  FORMAT (2X16H0EBUG  LAR  INOI CE/ (8X2014) > 

B27A  087 

6174 

WRITE (K0UT,9999)  LAR 

B27A  088 

6175 

9902  CONTINUE 

S27A  089 

6176 

RE TURK 

B27A  090 

6177 

END 

827A  091 

6178 

CB28A 

6179 

SUBROUTINE KINET 

KINE0010 

6180 

COMMON  /HISCOM/  C1,C2,C3 

6181 

COMMON  /BuMCOM/  BUMP, CORNA , EASE 

6182 

COMMON/INTCOM/K<R(20) , KIN, KCUT 

6183 

DIMENSION  ELKM(IO) ,OELK(10) 

B28A  004 

6184 

COMMON  /EQPCOM /  R8 {  71,2),RCC  7l,2),RD(  71,2)  ,REC  71,2),RF(  71,2) 

, B28 A  5 

6185 

1  TUC  71,2)  ,FF(  71) ,  FFA , IFC  (  71? , AT A (10) , ATE  (1 0) , ATC (10) ,  W AT C 1 0) , 

B28  A  6 

6186 

2  KAT(iO) , IRC10) ,IS,KR(lCi,LAMIC  7i> ,P, T, TK  ( 10 ,  7>,VN<  71), 

B28A  7 

6187 

3  VNU  (  71,10),  ITFP,  KR2,HCH,  NCV,WM,WTN(  71), Y(  71),YH(  71>,C-G(  71) 

B28A  8 

6188 

4  ,  TQ  C 1 0  ,  7),EP0VRK,SIGMA,3ASM0L 

028  A  9 

6189 

COMMON  /EQTCOM/SIP,HIP,EL,ENL,FLIQ,LPF,IRE,IER,AA,ITS,IN,IL,IT, 

B28A  10 

6190 

1  MODE, MMELT, SMELT, TMAX , THIN  ,MELT, SUNN, SUML > HS ,WSS, 81 ,1 SP2, I SPQ , 

B28A  11 

6191 

2  ISP,KKJ,SVA,SVB,SVC,SVD,SUNC,FFFrCNF,EP,RV,IFCJC,WTG,WTL,)C,HG, 

B28A  12 

6192 

3  CPG,TTMIN,TTMAX,L2,L3,IB(11)  ,E8( 10) , E0L ( 1 0) , A  (16, 16) , B (16)  , 

B28A  13 

6193 

4  IP<  71) , ALP (10) ,FNU(10) ,GANH(1Q> » G  AMF (10) ,SLAM(10) ,DY (  7l),RVS, 

B28 A  14 

6194 

5  CPC  71),  H(  71), SBC  7i',TC(  71>,VLNK(  7l),EC  71)  ,PNUSC10)  , 

B28 A  15 

6195 

6  BC<iQ),BLNKCi0>,3YCl0),IBC(10>,8E(10),JJ(  4) 

B28A  16 

6196 

COMMON/ KINGQM/MT ,F  KF ( 1 0) ,EAKS1Q) ,EXK ( 1 0) , PHI (10 , 10) ,RMUC10,10» , 

828  A  17 

6197 

1  QKPT(10),PKPC l0),PKR(i0) r RAT €10) .RSIGC10) , 7A ( 10) ,LL (1 0 ) , PMR C 1 0) , 

B28A  :,8 

6198 

2  PRMU  C 10, 10) , EESEC 10) 

B28 A  19 

6199 

5  FORMAT  (1313) 

KINE032T 

6200 

10  RT  =  1,9869  *  T 

KINE033G 

6201 

DO  40  M=1,MT 

XI NE  0340 

6202 

SUMO  =  0. 

KINE0350 

6203 

SUMK  =  0. 

WINE0360 

6204 

SUMR  =  0. 

KINE0370 

6205 

SUMP  =  0. 

KINEC780 

6206 

DO  15  1=1, IS 

KINE03S0 
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6207 

PRHU ( I ,  M)  *  PMU(I,M)  -  RMU(I,M) 

UINE0400 

6208 

SUMK  =  SUMK  +  PRMU ( I f M )  *  VLNK(I) 

KINE0410 

6209 

SUMR  =  SUf'R  ♦  RMU(I,M>  *  Y  <  I) 

KINE0420 

6210 

SUMP  =  SUMP  ♦  PMU(I,M)  *  fill 

KINE0430 

6211 

15 

SUMO  =  SUMO  +  PRHU(ItH)  *  H  <15 

KINE0440 

6212 

C 

EQUILIBRIUM  CONSTANTS  FOR  KINETIC  REACTIONS  IN  TERMS  OF  BASE  SPECIKINE0450 

6213 

C 

LOG  KP-S 

KINE0460 

6214 

c 

DERIVATIVES  OF  LOGS  OF  ABOVE  KP-S  WITH  RESPECT  TO  LOG  T 

KINE0480 

6215 

OKPT(M)  =  SUMO  /  RT 

KINE0490 

6216 

c 

RIGHT  HANO  SIDE  (OR  REVERSE  PART)  OF  DRIVING  POTENTIAL 

KINE0500 

6217 

IF  (ITS  )  19,14,16 

6218 

14 

D£LK»M)=0* 

6219 

16 

IF  (OELK (M) )  17,19,18 

6220 

17 

SUMP=SUMP-OELK(M) 

6221 

GO  TO  19 

6222 

18 

3UMR=SUMR+DELK (Ml 

6223 

19 

ELKM(M)=SUMP-SUMK-SUMR 

6224 

PKP(M)  =  EXP (SUMP  -  SUMKI 

KINE0510 

6225 

c 

LEFT  HANO  SIOE  (OR  FORWARD  FART)  OF  ORIVING  POTENTIAL 

KINE0520 

6226 

PKR(M)  =  EXP(SUMR) 

KINE0530 

6227 

VK1  =  PKRJM)  -  PKP(M) 

KINE  0540 

6228 

IF  (VK1)  25,20,25 

KINE0550 

6229 

20 

VK1  =  l.E  -  9  *  PKR(H) 

KINE0560 

6230 

25 

CONTINUE 

6231 

VK2  =  Art  *  FKF(M)  *  (ABS(VKl))  *  *  <EXK(M)  -  1.)  *  EXP<  -  EAK(M) 

/KINE  0580 

6232 

1  RT)*(-C3> 

6233 

VK3  =  VK2 

KINE0600 

6234 

IF  (EXK(M)  -  1.)  35,30,30 

KINE0610 

6235 

30 

VK3  =  VK2  *  EXK(M) 

KINE  0620 

6236 

c 

PM  TIMES  FORWARD  RATE  OF  REACION  I  (PM=AA) 

KINR0630 

6237 

35 

PMR(M)  =  VK2  *  VKl 

KINE0640 

6238 

PKP(M)  =  PKP(M)  *  VK3 

KINE0650 

6239 

PKR(M)  =  PKRCM)  *  VK3 

KINE0660 

6240 

RAT(M)=.AMAX1(ABS(PKP(M)),ABS(PKR(M))) 

6241 

RSIG (M)=RAT (M) 

6242 

IF  (KR (7)-l)  40,40,  36 

6243 

36 

IF(M-l)  37,37,  39 

6244 

37 

WRITE ( KOUT ,38) 

621'3 

38 

FORMAT (2X1HM7X 3HLKP6X8H0LKP70LT6X4HPMRR8X4HFMRP9X3HPMR9X3 HR AT) 

6246 

39 

WRITE (KOUT, 41)  M,SUMK, OKPT <M) ,PKR<M> ,PKP(M) ,PMR(F) ,RAT (M) 

6247 

1  ,ELKM(M) ,OELK(M) 

6248 

40 

CONTINUE 

6249 

41 

FORMAT (I3,2X8E12.5) 

45 

FORMAT  (1X26HAI I, J) ,0(1) ,I=1,8,J=1,8  IN) 

KINE0690 

6251 

50 

FORMAT ( 1X12E10  j  3) 

KINE0700 

55 

FORMAT (1X27H4 (I, J) , 8 (I > ,1= 1 ,8  ,  J=1 ,8  OUT) 

KINE0710 

6253 

IF  (KR  (7)  -  1)  80,  80  ,65 

KINE0730 

6254 

65 

CONTINUE 

6255 

WRITE( KOUT, 50)  PRMU 

KINE  0810 

6256 

WRITE (KOUT, 215) 

KINE1' 

6257 

WRITE ( KOUT ,50*  ( E9 < I > , 1=1, I S ) 

K'NE0830 

6258 

WRITE  (  KOUT  ,5  0)  (Ed)  ,1=1, IS) 

6259 

70 

WRITE ( KOUT ,45 ) 

KINE  0840 

OO  75  1=1 , ISP2 

KINE085L 

6261 

75 

WRITE (KOUT.50)  < A (I , J ) , J=l, ISPQ) ,B d ) 

6262 

80 

CONTINUE 

KINE  0  87  0 

6263 

IF  (ITS)  105,85,105 

6264 

C*****ORDER  REACTIONS 

K INF  0  8 8  0 

Ll 
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6265 

85  1 

6266 

86  1 

6267 

6268 

90  1 

6269 

1 

6270 

6271 

95 

6272 

1 

6273 

6274 

1 

6275 

6276 

1 

6277 

100 

6278 

6279 

£*«*** 

6280 

105 

6281 

6282 

6283 

6284 

6285 

106 

6286 

6287 

107 

6288 

6289 

108 

6290 

6291 

6292 

110 

6293 

6294 

115 

6295 

6296 

HA(M)=M 


K  -  0 


6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

eso'i 

63G6 

6307 

6308 

6309 

6310 

6311 

6312 
6  313 

6314 

6315 

6316 

6317 

6318 

6319 

6320 

6321 

6322 


IF(RSIG(H)-RSIG(H-1)>  100,100,95 
K  =  MACH) 

MACH)  =  MACH  -  1) 

MACH  -  1)  =  K 
0UM1*RSIG(M> 

RSIGCH) =RSIG(M-1 ) 

RSIG(M-1)=0UM1 
CONTINUE 

IF  <K)  105,105,85 

START  SECOND  MAJOR  LOOP  ON  REACTIONS 
DO  200  HM=1,MT 
RSIG<MM)=0. 

M  =  MA(HM) 

IS  IT  A  CONTROLLING  REACTION 
IF (ITS)  106,108,106 
L-LLCMM) 

IF (L)  126,126,107 
OUM*ABS(PRMU(L,MI*RATCM)) 

GO  TO  130 
LL (MM) =0 
00  125  L=i,IS 

IF  (PRMU  CL ,M> )  110,125,110 
DO  115  K=1,MM 

IF  CL  -  LL (K) )  115,125,115 
CONTINUE 

DUM=A3S  CPRMUCL , M)*RAT(M)) 

IF  CABS  CPRMUCL, M) )-.Q01!  125,125,120 
C*  *  *  YES, IT  IS  FOR  MASS  BALANCE  L 
120  LLCMM)  -  L 
GOTO  130 

125  CONTINUE 
C*  *  *NO,  IT  IS  NOT, 

126  11=1 

12  *  IS 
GOT  C  170 

C*****REARRANGE  ACCORDING  TO  CONTROLLING  REACTION 
130  RS’  *»(MM)  =  0UM/EB  CL)  *0,1 
DUh,-PRMU(L,M) 

PRMU  L,M)  =  0. 

DO  165  1*1, IS 

IF  (PRMU (I»M) )  135,165,135 
135  OUM2  *  PRMUCI,H)  /  OUMl 
IPC1)  =  1 
MP  =  MM  ♦  1 

IF  CMT  -  MP)  155,140,140 
140  DO  150  K=MP»MY 
MI  =  MACK) 

PRMU ( I ,MI )  =  PRMUCI,MI)  -  OUK2  *  PRMU(L,MI) 
IF  CABS CPRMUCI , MI) )  -  .001)  145,150,150 
145  PRMU C I, MI)  =  0. 

150  CONTINUE 

155  DO  160  K=1,ISPQ  .....  .  „ . 

160  A  ( I  ♦  2 , K)  »  A(I  ♦  2 ,K )  -  0UM2  *  ACL  ♦  2,<> 


ADO  INTO  ALL  MASS  BALANCES 


KINE0900 

KINE0910 

KINE0930 

KINE0940 

KINE0950 


KINE0990 

KINE1000 

KINE1010 


KINEl 030 
KINE1040 


KINEl 060 
KINE1070 
KINEl 080 
KINE 1090 
KINE1100 


KINEl 120 
KINE 1130 
KINEl 140 
KINEl 150 
KINE116C 

KINE1180 
KINEl 190 
RINE12  CO 


KINE122Q 

KINE1230 

KINE1240 

KINE1250 

KINE 1260 
K INE1270 
KINE1280 
KINE1290 
KINE 1300 
KINE1310 
KINE13?0 
KINE 13 30 
KINE1340 
KINE1350 
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6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 
6  334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 
6^46 

6347 

6348 

6349 

6350 

6351 

6352 

6353 

6354 

6355 

6356 

6357 

6358 

6359 

6360 

6361 

6362 

6363 

6364 
6  365 

6366 

6367 

6368 
6„69 

6370 

6371 

6372 
6  373 

6374 

6375 

6376 

6377 

6378 
6  379 
6380 


BCI  ♦  2)  =  B  < I  +  2)  -  0UM2  *  B <L  ♦  2) 

Ed)=E(I)-OUM2*£(L> 

DUM2  =  ABS (OUM2) 

E  B  <  I  •  =  AMAXKEB(I)  ,DUM2  *  EB(D  > 

165  CONTINUE 

PRMU(L,M)  =  DUM1 

C*****AOO  CONTROLLING  REACTION  INTO  ITS  MASS  BALANCE 

11  =  L 

12  =  L 

EOL=E(L)+PMR(M)*PRMU<L,M) 

IF  (ITS)  170,230,170 

230  DELKlM)=(l.-EASF)*ELKM(M)*ANINl«l.,ABS(EOL/EB(L) >> 

ELKM(H) =ELKM(M) -DEL  KCM) 

IF (PKR  (M) -PKP (M) )  240,170,  235 
235  PKP(M)=PKP(M)*EXP<-OELK(H> > 

GO  TO  245 

240  PKRIM)=PKR{M)*EXP(DELK(M>) 

245  PMR(M) =  PKR (M)  -PKP( M) 

170  DO  176  J=1,IS 

IF  (IFC ( J) )  171,171,176 

171  SUMO  =  RMUt J,M)  *  PKR(M)  -  FMU<J,H)  *  PKPCM) 

OO  175  1=11,12 

175  A(I  +  2,o  *  2)  =  Ad  +  2,J  ♦  2)  -  SUMD  *  PR*U(I,M> 

176  CONTINUE 

SUMD  =  -  P KP { M )  *  OKPTCM)  -  E AK(M)  /  RT  *  PMR(M) 

00  180  1=11,12 

0UM1  -  PMR(M)  *  PRMU(T,M) 

A(I+2,2)=A(I+2,2)"0UM1 

Ad  ♦  2,1)  =  A(I  ♦  2,1)  ♦  SUMO  *  PRMU  CI,M) 

E(I)  =  E<I)+D'JM1 
Bd  ♦  2)  =  Bd  +  2)  ♦  0UM1 
180  EB(I)  =  AMAXHEBfl)  ,  ABS1PRMU  d,M>  *  RAT(M) ) ) 

EB(I)  =AMAX1(EB(I) ,ABS  IE(I) )) 

IF  (KR(7)  -  1)  200,200,185 
185  WRITE (KOUT, 215) 

WRITE < KOUT ,50)  (EB(t)  ,1  =  1, IS) 

WRITE ( KOUT ,50)  (E  (I ) , 1= 1 , IS ) 

190  WRITE (KOUT, 55) 

CO  195  1=1 , ISP2 

WRITE (KOUT, 50) (A(I,J),J»1, IS?Q),B(I> 

195  CONTINUE 

WRITE (KOUT, 5) M, II, 12 , L , LL, HP, MA 
WRITE (KOUT ,50 ) PRMU 

200  CONTINUE 

C*****MODIFY  COEFFICIENTS  TO  ACHIEVE  LINEARITY  AS  EQUIL  IS  APPROACHED 
DO  206  MM=1,MT 
L=LL(MM> 

IF  (L)  201,206,  201 

201  M=MA(MM) 

0UM2=RSIG(MM) 

IF  (ITS )  250,243,250 
248  EESE  (L  )  =t  (L )  *  ( 1 . -E  ASE )  l  (1.  «-DUM2) 

250  E  (l)  =  E (D “EESt (L ) 

8CL+2»sB(l.»2)-EESE  (L) 

Cb(L)=-EB(L) 

AR=1. 

EXEt=PKR(M)7PKP(M) 

IF  ( EXEL )  191,191,193 


KINE1360 

KINF4.370 

KINE1380 

KINE1390 

KINE1400 

KINE1410 

KINE1420 

KINE1430 


KINE1450 

KINE1460 

KINE1470 

KINE1480 
KINE 1490 
K1NE15C0 

KINE1510 

< INE1520 


KINE1540 

HNE1550 

dNFl560 

KINCr570 

KINE1580 

KINE 1600 
KINE1610 
K INE1620 
KINE1630 
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6381 

191  EXEL=l.€-35 

6382 

IF  (PKP (M) -PKR(  !i) )  192,  193,  193 

6383 

192  EXEL=i.E+35 

6  384 

193  CONTINUE 

6389 

EOL=E (L) *DUM2/ (0UM2+1. ) 

6366 

OUMi® ( 1.  +  DUM2)  7(1.+RSIG (MM) ) 

6387 

EB(l)=EB(t)*ABS(OUHl) 

6  388 

IF<ABS(EXEL-l.)-.l)  204,204,202 

6389 

202  OUHl=E<L)/<EL<M(H)*PRMU(L,M)) 

6390 

AR=(DUM1+PKR(M) ) /PHR(M) 

6391 

AR=AMAX1(AR, 0.  ) 

6392 

AR= AMI N1  (1 . , AR ) 

6393 

204  00  205  J=1,IS 

6394 

IF(IFCCJ))  203,203,205 

6395 

203  A(L+2,J*2>=A(L+2,J+2)+  EOL* (PMU (J,M)* (1 .-AR) +AR*RMU ( J, M) ) 

6  396 

205  CONTINUE 

6397 

ACL+2,l)=A(Lf2*l)-EOl*JOKPTtM)*(l.-AR)-t  K(M)/RT) 

6398 

A (L+2, 2)*A (L+2, 2)+EOL 

6339 

206  CONTINUE 

6400 

215  FORMA  T(  1X12HE8 (I), 1=1, IS) 

6401 

IF <KR (7) -1)  225,225,220 

6402 

220  WRITE (KOUT, 55) 

6403 

DO  221  I=1,ISP2 

6404 

221  WRITE(KOUT,50)  (A(I,J),  J  =  1, ISPQ) , B (I) 

64  05 

WRITE (KOUT,50)  <E(I) ,1=1, IS) 

|  64  06 

225  RETURN 

XINE1710 

6407 

END 

KINE1720 

6408 

C829A 

B29A 

001 

6409 

SUBROUTINE  FIRSTG 

B29A 

0  02 

6410 

COMMON /3LQCOM/  M0A(7l),  H08 1  7l> ,NSPEC, FR  (  71 , 15) , W (3)  , IEF ( 10) 

B29  A 

3 

6411 

I >  LEFS ( 10) , PIEASE ,LEFW(10) 

B29A 

4 

6412 

COMMON/ETACOM/ETA( 15) ,0ETA<15),0SQ(14),DCU(J4> ,B1 ( 14) ,  B2( 14) 

B29A 

5 

6413 

1,LAR(153) ,BA1 (43,18) ,BA2(30,15) 

829A 

6 

1  6414 

COMMON/INTCOM/  <R(20) ,KIN, XCUT ,HATlI, M AT2I ,M ATI J,MAT2J,NET A , I, IS, 

NB29A 

7 

!  6415 

IS, IT, NTIME,NSP,NSPM1 ,N AM, NLEQ, NNLEQ, NRNL ,  ITS, KAPPA, CBAR, CASE  (15) 

B29A 

8 

\  6416 

2,B(8)  ,  MWE, NON, KQ(10) , ITEM, NITEM,XR17, NET, NBT2,IDENT,KR9(40) 

B29A 

9 

6417 

3,KAUXO, JTIME,JSPEC,H0(3) 

B29A 

10 

6418 

COMMON/PRNCiOM/TIME  (  50)  ,PRE  140)  ,PTET  (  50),GF(  50)  ,S(40)  ,POKAP  (40) 

B29A 

11 

6419 

1  *  RNOSE  ,VKAP,NQISC,IDTSC(40) , NS 0(10) ,MSO(iO) ,ITF  (  50) ,IPRF,RADNO, 

B29A 

12 

1  6420 

2C0NE,  RAOFL (  50)  ,RADR<40)  ,RAOS(40>  , IRAQ 

B29A 

13 

)  6421 

COHMON/VARCOM/F (4, 15 ) , G (3, 15),SP(3, 15,  9) , ALPH 

B29A 

14 

{  6422 

3  FORMAT (8E1C. 4) 

B29  A 

Oil 

.  f  6423 

4  FORMAT  (3E10.4, 5X15, E10. 4) 

ENTR- 

MOD 

6424 

5  FORMAT (4012) 

6425 

NUL=0 

6426 

IF(IABS(KR(2)-2)-l)  110,111,112 

6427 

110  OUN1® ( GE (ITEM)  -G<1,1) ) / ' G ( 1  ,NET A) -G ( 1, 1) ) 

329  A 

013 

6428 

00  113  1=1 , NET  A 

B29A 

014 

6429 

G(3,I)=G(3,I)  *0UM1 

B29A 

015 

6430 

G(2,I)«G(2,I)*0UM1 

B29A 

016 

64  31 

} 13  G(l,I)  =  G(l,l)t OUM1* (Gil, I) -G (1,1)) 

e29A 

017 

6432 

GO  TO  152 

B29A 

018 

j  6433 

til  REA0(KIN,4>  A_PH,F(1,1) ,F(3,1) , 1ST, F (3 ,NET A) 

ENTR- 

MOD 

64  34 

IF  (KR(2) «EQ.3)  KR< 2 ) *M INO ( - 1ST , - D 

6435 

AlSO»ALPH*AlPH 

64  36 

Ft o,l)=F(3,l)*ALSQ 

6432 

REAO (KIN, 3) (F (2, 1) ,1=1 , NET  A) 

6438 

BAKrl  *T1I,1>  =  F(3,NETA)*ALSQ 

ENTR- 

MOD 
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6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 
644  7 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 

6459 

6460 

6461 

6462 

6463 

6464 

6465 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 
64  75 

6476 

6477 

6478 
647  j 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 
4  9  2 

b4  93 
€494 

6495 

6496 


CALL  MATSilBAUi,!)) 

00  131  I=1,NETA 

131  F(2,I)=F(2,I)*ALPH 
U  =  2 

L=1 

1=1 

00  134  M=1,F|AT1X 
1=1+1 

IMI-NETA)  133,133,132 

132  I=LL 
L=L+LL 
Ll  =  l 

133  ooLi3rx<Sin:DAi<M'2,*Mi’i,"B4i,M*3>^'3’i> 

134  F(L,I):*F(L,I)-BA1<M,J) *F(2,J-3) 

00  130  H=1,MAT1I 

130  BA1(M,1)=0 
BAl(i,l)=i.o 
CALL  MATS213A1) 

DO  138  K=NUL,NSPH1 

(Sp<l.I»»<),l=l,NETA) 

SP(2f 1, K)=SP<2» i,K)*ALPH 
L*2 
1=1 

DO  138  M=2»MAT 21 
1=1  +  1 

l'MI-NETA)  136,136,  135 

135  1=1 
L=L+1 

136  oo<138,jl2^MAT2J1,*SP(1’NETA’K,*8A2<M’1)*SP(2,1*K> 
138  SP(L,I,K)=SP(L,I,K) -BA2(M, Jj*SP«l,J-l,K) 

00  140  M*1,MAT2I 
140  BA1(M,1)=0. 

IF(NSPMl.GT.O)  READ<*IN,5>  LEF 
60  TO  152 

112  READ  (KIN,3»GW 
195  ALPH=  4 . /ETft i K APPA ) 

F  <1, 1 )  =  0 . 

F  (2,1>  =  0» 

F<3, 1) =  ALPHZETA(KAPPA) +(C EAR+CBAR+ 1.  > 
0UM1=ALPH/ETA( KAPPA) +1CBAR-0.5) 

ETAT=4LPH/(F (3,l)-0UMl) 

oum2=o.5/etat*al ph/eta t 

0UM3=ALPH/(ETA { KAPPA) -ETA ( NE TA ) ) **2+ ( 1 ,-CB AR) 

F  (4,1)  *-2.=[)UM2 

00  114  1=3, KAPPA 

IF (£T  A ( I- 1) -ET  AT)  108,  109,  109 

108  F(2,I-l)=(F(3,l)-0UM2*ETA( 1-1) ) +ETA fl-l) 

F  <3,I-1)  =  F(3,1)-2.*OUH2*ETA(I-i) 

F  (4,I-1)=-2.*0UM2 
GO  TO  114 

109  F  <2, 1-1) =ALPH/2.+0UMl*ETA ( 1-1) 

F  <3,I-1>=QUM1 

rf4,I-l)  =  0. 

114  F{l,I-l)aF(l,I-2)+(F{2,I~2)+FC2,I-l))/2«*DETACI-2) 

00  107  I  =  KAPPa  ,  ,;et  A 

F  12,I)  =  ALPH-0U<13*(ETA(NETA)-ETACI))**2 


entr-mod 


ENTR-MOD 


ENTR-MOO 

entr-mod 


entr-mod 

B29A  038 
B29A  039 

ENTR-MOD 

ENTR-MOD 
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6497 

6498 

6499 

6500 

6501 

6502 

6503 

6504 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 
6525 

6527 

6528 

6529 

6530 

6531 

6532 

6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 


F(3,I)=2.*0UH3*<ETA(N£TA)-E7A<I)) 

F(4,I)=-2.*DUM3 

107  F (1,1) =F<1, 1-1) ♦ <F (2,I)+F(2,I-1>)/2.*DETA(I-1) 

DUM=(GE  CITEM)  “GHJ/ALPH 
DO  115  I=i»N£TA 
G(1,I)*F(2,I)*DUM*GW 
G(2,I>=F(3,I)*0UM 
115  G(3,I)=F(4,I>*0UM 
152  CONTINUE 

9901  FORMAT  <1X1P12E10«3) 

9904  FORMAT (2X19HDEBUG  FIRST  GUESSES) 

IF  (KR( 15) )  9902,9903,9902 

9902  CONTINUE 
WRITE  <  KOUT ,99  04) 

OO  9906  1=1,4 

9906  WRITE  <  KOUT, 990 1 )  (F(I, J> , J=1,NETA) 

DO  9905  K=NUL»  NSPM1 
DO  9905  1=1,3 

9905  WRITE(KOUT,9901)  (SP (I , J, K)  , J=i ,N£TA) 

9903  CONTINUE 
RETURN 
END 

FUNCTION  ERP(X) 

TXS=2.*X*X 
IF  (X-2.)  5,5,15 
5  R=0,8 
FN=31 

DO  10  1=1,15 
R=i.-R*TxS/TN 
10  FN=FN-2. 

ERP=R*X 
RETURN 

C  SEMI  CONVERGENT  SERIf.S  FOR  LARGE  X  --  INCLUCE  0  TO  RAT  OF 
C  SMALLEST  TERM  AND  RAT  TO  1.  OF  PRIOR  TERM  IF  SMALLEST  TERM  IS 

C  SEVENTH  OR  PRIOR  TEFM. 

15  IN=(TXS-l.)/2. 

RAT=0.68 

IF ( IN-6)  20,20,25 
20  FN=IN*IN-1 

R*  (TXS-FN-2.) /2.*RAI 
R=R/TXS* <rN*2. ) ♦R/RAT-R+RA T 
GO  TO  30 
25  IN=7 
R=1.0 
FN=  13 

30  DO  35  1=1, IN 
R=1.*R*FN/TXS 
35  FN=FN-2. 

ERP=R/ <2. *X) 

RETURN 

END 

CB30B 

SUBROUTINE  ETIME 
COHHON/START/TZ 
CALL  SECONO(TZ) 

RETURN 

ENO 

SUBROUTINE  ETINEF(T) 


B29A  059 

B29A  061 
e29A  062 
B29A  063 
B29A  064 


B29A  067 
B29A  068 
B29+  0 
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6555 

CONMON/ST  ART/TZ 

6556 

CALL  SECONO(T) 

6557 

T*T-TZ 

6558 

RETURN 

6559 

ENO 

6560 

C  B30C 

6561 

SUBROUTINE  LIAO ( L, I, J, Cl 

6562 

COMHON/ERRCON/FLE<  43),GL£<30),SPLE(30»  6) #6LA (313) »FLEN, GLEN 

6563 

1,SPLEM(  8) ,ELM(14) ,ELHHtIFL«»IGLN»ISPLH(  6) , NELM 

,  ILHH, OFL ( 43) 

6564 

2  •  OGL  <3  0)  ,  OSP*.  ( 30 ,  8)  ,FNLE(18)  ,GNLE<15>  ,$PNLE<15, 

8)  ,ENL (153) 

6565 

3 , FNLEH, GNLEM,SPNLEM  (  8),  ENLHM, IFNLM, IGNLH,ISPNLH (  8) 

6566 

4 .NENLN , INLHM,DFNL 118), OGNL ( 15) , DSPNL ( 15,  8)  , DRNL ( 10> 

6567 

C0MH0N/ETAC0H/ETA115I * OETA (15) ,320(14* ,nr*i  <14) , B1 (14) , B2( 14) 

6568 

1,LAR(153),8A1(43,18» ,8A2(30,15> 

6569 

COHHON/NONCON/AH (153,153), OVNL (153)  ,TCN, 

6570 

1 VLNKW, OLPN (  9),0LPK<  8,  9) ,OTHN,OTKW(  8),FLUXJB< 

9) 

6571 

COMMON7INTCOM/KR(20) ,KIN, KOU7, NATH ,MAT2I ,M ATI J, 

MAT2J,NET  A 

6572 

IF (L)  1,3,3 

6573 

1  ENL(I)  =  ENL(I)  -C*FLE(J) 

657<* 

OO  2  K*l,NATlJ 

6575 

2  AH(I,K|cAN(I,K)~C*BAl(J,K) 

6576 

RETURN 

6577 

3  ENL(I) *ENLCII-C*SPLE<J,L) 

6578 

K<=1’mAT2J*MAT1J 

6579 

DO  4  K*1,MAT2J 

6580 

KK-KK «1 

6581 

4  AM(I,KK)*AH(I,KK)-C*8A2(J,K) 

6582 

RETURN 

6583 

ENO 

6584 

CB300 

6585 

SUBROUTINE  TLEFT(I) 

6586 

1*100  (000 

6587 

return 

6588 

ENO 

6589 

O930E 

6590 

SUBROUTINE  OATE ( I » J ) 

6591 

RETURN 

6592 

ENO 

6593 

C83  0F 

6594 

SUBROUTINE  TOO (I,J) 

6595 

RETURN 

6596 

END 

6597 

SUBROUTINE  OGLE (N, XAM, PRM, OPOIN,NUMX, X ,P, EH) 

6598 

DIMENSION  XAM< l),X(l>»P(i> ,EM(1) ,PRH( 1) rDPDIH(l) 

6599 

XOIF*X (NUMX)-X ( 1) 

6600 

IS=1 

6601 

2  OO  600  J*1,N 

6602 

XA*XAH  ( J ) 

6603 

59  10*1 

66  09 

I  T  *  1 

66  05 

61  IF(XOIF)  72,60,71 

66)6 

71  IF(XI-XIIS))  62,63,64 

66  07 

72  IF ( X ( I  SI  — X A)  62,63,64 

66  08 

62  I F  < IS- 1 )  671,671,68 

6  6  09 

68  IS*IS-1 

66  10 

IT*2 

6611 

OO  TO  (61,661 , IO 

66  12 

672  IS-NUHX 

e3  0C  3 
B30C  4 
B  3  0  C  5 
B30C  6 
63  OC  7 
B30C  8 
B3QC  9 
63  OC  10 
B30C  11 


ENTR-MOC 


B05A5360 


ENTR-HOO 

ENTR-HOO 

ENTR-KOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

FNTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 

ENTR-HOO 
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6613 

671  I=IS 

EMTR-MOO 

6614 

H»0. 

ENTR-MOO 

6615 

OPOX-EHCX) 

ENTR-MOO 

6616 

GO  TO  67 

ENTR-MOO 

6617 

63  PR*P<IS) 

ENTR-HOO 

6618 

OPOI*EM<IS> 

ENTR-MOO 

6619 

GO  TO  601 

ENTR-MCO 

6620 

64  IS*ISM 

ENTR-MOO 

6621 

IF (IS-NUHX)  69,69.672 

ENTR-MOO 

6622 

69  10*2 

ENTR-MOO 

6623 

GO  TO  161, 65). XT 

ENTR-MOO 

€  624 

65  IS*I$-1 

ENTR-MOO 

6625 

66  I=IS 

ENTR-MOO 

6626 

OX*X(lM)-X<I) 

ENTR-MOO 

6627 

X0*>A-X<X> 

ENTR-MOO 

6620 

G*  (  UP  (l<  1)~P(  I )) /OX) -CM(  I)  > /OX 

ENTR-MOO 

6629 

F*<< 'EH<i*l)-EM<I> )/0X)-2.*G)/0X 

ENTR-MOO 

6630 

H*CF*:*A-X(I»l»)^G)*XO 

ENTR-MOO 

6631 

0P0I*MfH4EM<I)  ♦F*XO»XO 

ENTR-MOO 

6632 

67  PR*(H4>CH(I))*X0*P{I) 

FNTR-MOO 

6633 

601  CONTINUE 

ENTR-MOO 

6634 

PRN  (J) *PR 

ENTR-MOO 

6635 

600  OPOIH ( J) *OPOI 

ENTR-MCO 

6636 

M  CONTINUE 

ENTR-MOO 

6637 

4  RETURN 

ENTR-MOO 

6638 

ENO 

ENTR-MOO 

6639 

CB31A 

B3 1 A  001 

6640 

SUBROUTINE  CMA 

83 1 A  002 

6641 

C 

TWO  MOVING  BOUNOARY  INTERNAL  CONDUCTION  PACKAGE 

83 1 A  003 

6642 

C 

AEROTMERN  CORPORATION  RN  KENDALL  C  HOYER 

B31A  004 

6643 

COHNON/CANCON/TUNC(20,10,2) , TNG (20) , TTS ( 2  0 , 10,2) ,TCHEN C 20 , 10 , 2 ) , 

83 1 A  005 

6644 

INI  0(20)  ,  NHK20)  ,  <HI(20)  ,  JCHA  ,  IMG,  INC,  NHC , 

831 A  006 

6545 

2TCH(2)  , TPM2)  ,  TRAD  (2)  ,  IA8 

83 1 A  007 

6646 

3,TT2(20,2),TMZ(2a,2),TTl(30),TMG(30>,DHl2C2)  ,  TA  (39)  ,  DELHG  ,  1 1 , 12  ,  CM  B31 A  008 

6647 

4 ,CM0,BPRNG,KCM (10) 

83 1  A  009 

6648 

EQUIVALENCE  (NCL ASS , JCMA) 

B3 1 A  010 

6649 

COHMON/LOOCOM/KOUT , IEX ,OEN , VR » IMI (23) , IL0<23> ,IR(23> 

831 A  Oil 

6650 

COMMON/CMACOM/TEP(20,2> ,  TCF(20,  2),TKP(20,  2) 

83 1 A  012 

6651 

3 ,RHO(2) .NATL (38) ,GCL<39) ,SC(20),H(38) , RC (38) , RA ( 38) , RECOR 0 ( 36) , 

B3 1 A  013 

6652 

4 ARE A ( 38) ,EMA(38) ,RAV*3«I, 

83 1 A  814 

6653 

5ROA(152) , ROB (15 2) , ROC (152) , 

331 A  015 

6654 

6  T?I(JO>,VFZ,CMM,NPR, 

B31A  016 

6655 

7LCT,NPG,II,N*H,NUHN,WL ,  OELM.RFT ,RHORA,RHOR6,RHORC, TRA 

831A  017 

6656 

eCA,TRACi,TRACC,RHO0A,RM0Ol,RM0PC,|A,EifEC,BA,ii,8C,PSIA,PSI9,PSIC, 

331A  018 

6657 

9TRACN, PET, PETE, RSV, ETA ,0TPR3,0TPR2, DTPRT, TPR3, TPR2 ,TMt RO, TMFIN.MT 

93 1  A  019 

6658 

COMMON /CM ACOM/CPSM, TRES, 

■■31 A  020 

6659 

1TMWT,GANA,0MG,N0,FJFM,FJFS ,JF, JFMP.JFM, INPUT,  0Tm!N,8RP, MCOKV, 

931 A  021 

6660 

2INCH,0TM8,NN,NI,M0I,CHCRI,PYCRI,NC0N,  NX , Tx (38) ,F 1( 38) ,F? (30) 

83 » A  022 

6661 

COMMON /S8CP/BF , CMMA, CNMI, DERR, OMX V, EMI  V, ERFX , CmRC, EAH, ERRS, i j » 14 ( 

M3  1 A  023 

6662 

1VRM.VRP,  IP*,IRA,IRBtIRC,IR0,ITL,PMIfQQfTA8C,TEXP,TSMA,TSMI, T5S3 

8  3  1 A  024 

6663 

COMMON/SiCP/  TMXT,  OMCP<  3)  ,  CPC  (  3)  ,  TO  (28)  ,  V I  TCR(5H  ,E  ITER  ( 5  1) 

03 1  A  025 

6664 

COMMON /SBCP/  Y2(16) ,02(16) , Y3 ( •) ,03(8) ,Y1(?) ,01(2) 

031A  07F 

6665 

C0HN0N/S8CP/  CPC<  50),CRtf(  50),CP(  50>,NP  (  §0);MCC  50),CNC  50), 

n  3  1  A  027 

6666 

1KAT  (  50>,ROT(  50 ) , RO  t  50), X(  50),ROM(  50>,CHCG(  50? ,RR  (  50), 

031A  0  28 

6667 

2CMC<  59), A(  501 , B  t  50),  C(  50), 01  50),CMO(  50),CMO<  50> 

831 A  029 

6666 

COMMON /S8CP/8R,  CMZ,  CMOL,  OEOT,OFOTT,OSOTB,CTH,CSNS,MW, 

931 A  030 

6669 

1ME,  ITS,PRES,QCMEN,OCMEMT,QCONO,OCOMOT,CCONV,C:ONVT.QRA,ORP, 

031A  P3t 

6670 

2QRPT.R AO.RAOT ,RSU,S IG,  TS AVE , VF ,XPl , ASU 

«31A  C  32 
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6671 

6672 

6673 
6676 

6675 

6676 

6677 
6676 
6679 
6660 
6661 
6662 
6683 
6686 
6665 
6686 
6667 
6669 
6669 

6690 

6691 

6692 

6693 

6696 
6695 

66  96 

6697 

6698 

6699 

6700 

6701 

6702 
67Q3 
6  7  Q6 

6705 

6706 

6707 

6708 
6  7  09 
6710 
6  711 
6712 
6  713 

6716 
6715 
€716 

6717 
€716 
6719 
€773 
6721 
€777 
€  7  2  J 
€776 
€775 
6726 

67  ?7 
f  779 


COMMON/MISC/  BPRH,CHT , CCLO , CPI ,CPGA5 , CPNL ,C2,DCDT ,DEC OH,  BJ1A  033 

lOECOMT ,  DELCR,  Ol'LR,  DENQL  0, 0  I QT  j»DNS  ,DPOT  ,DRL  CP»ORLC,ORLP , ORL  »  ORCAC,  831 A  036 
20ROAT,OROBC,DROOT,OROCC,OROCT,OROOTO, DSC T, OSI , OS, OSS, OTA,  OTMC , OThS 83lA  035 
.T,OTS,OV0,O2,£GO,EZ,FACTl,FACT2,FA,FB,FC,FUF,FK,F2,6S£GR,GSM,GSHT,  e31A  03* 
6C2IH1IHAPH8,M8AR,MCAS,HRES,I£,I»IN,I,IS,ISV,IT|«,J1,J,KK,»<:,KT,L,  831 A  037 
5NOR,NLI,KLNfN,NZ,0,PGPU,PGPUT,P0L0,P0M,0L0SS,QL0S$T,RD,R01»R00Z,SA83lA  038 
6,SO£GR,TAS,TB,T£RHlf TERH2 , TERM3, THOS , TH, THPRT , TN, TOPI, TOP2 , TOP3 , T , 83 1 A  039 
7TT , VOL, XI  831 A  060 

EQUIVALENCE  <0H1,0H12 (1) ) , (0M2,DM12 121 ) , ITS ,T A»  831A  061 

562  FORMAT  (  733X16H-— •OUTPUT----!  83 1 A  062 

563  FORMAT  C//6X16 (2H-  >F11.6,9H  SECONDS  1612M  ->> 

566  F ORMAT <6X,6HTIMC»2X, 6MSURF »  2X , 6HPR08, 2X,7M SURFACE, 5X ,6MH  NALL,  E31A  065 
16X,6MH  EDGE, 6 X , 10MHEAT  CGt FF , 6X ,6HCN/CM0/6X ,6HST£P , 2X, 6MX TER , JX, 6H8 21 A  366 
2 OPT N, 2* ,8HRAD  ( IN) , 3* , 8M< 3 TU/L 8) ,2X , CM (8TU/L8 ) , 3 X, 16HC L8/ SO  FT-SECd31A  067 
311  031 A  068 

565  FORHAT<6X,I6,2I6,F10.6,FU.2,F1Q.2,F12.6,7X,F6.5/1M  )  031A  069 

566  FORMAT  <33X,20H-—  ABLATION  RATES - )  031A  050 

567  F  CRMAT  <8X, 7h8  PRIME, 3X,9H8  PRIME  G,3X,10Krt  OOT  CMAR,3X,9HM  OCT  GA3031A  05t 

16X.6HN  CHAR,7X,5HH  GAS/36X  ,  IuMILB/SQ  FT-SEC)  ,  1 IX  ,  t5H  <L8/ORIG  SQ  F  T  9  3  1 A  052 
2>)  P3 1 A  053 


566  F ORMAT (6X,F6.5,2X,F8.5,6(3XjF!Q.6./lK  )  9314  056 

5680  FORMAT (27X,32M - RECESSION S/RECE SSI  ON  RATES - /  331A  075 

133X,19H(lNI  /  (IN/SEC)/  P31A  0C£ 

2  16X,7HStjRFACE,  16X.6HCHAR  < ,F6.2 , 1H) , liX, 1 1MPYROLYSIS  ( ,  F6 . 2 , 1MM  03  l  A  057 

5681  FORMAT<5X,3(6X,Fin.7,lM/,F9.71/lH  1  0314  056 

5682  FORMAT  (27X.31B - SURFACE  ENERGY  FLUX  TERMS  — /25X,  37HCURREN  T  RATESP3  1 A  059 

1  (8TU/S0  FT  SURFACE-SECI/26X, 38MANO  INTEGRATED  VALUES  (0TU/ORIG  SQ031A  06C 

2  FT)/  63 i A  061 

3  13X , 1 0 MOON VEC TED  ,6X,10M  RADIATED  ,6X,JCH  RADIATED  ,6X,10H  CMEB314  062 

6MICAL  ,6X,  10MCONOUCTION/17X  ,2MIN, 12X,2MIN, UX,3MOUT,8X, 10HGENERATI831A  063 
50N,7X,6HAMAY)  B31A  066 

5683  FORMAT  16 X ,6HRA T E, 3X, 5 ( E 10 . 3 , 6X ) /IX , 5MT0T AL , 2 X , 5 ( I 1 0. 3 , 6X ) / |M  )  &31A  065 

5586  FORMAT  (30X.27H - INTERIOR  ENERGY  TERMS  — /  25X  ,  37MCURRENT  RATES  T8T3314  56 

1U/SQ  FT  SURFACE-SEC) /26X.38FAN0  INTEGRATED  VALUES  CgTU/ORIG  SC  FT) B 3 1 A  067 
2/  03 1 A  066 

3  1 3  X ,9HP YROL  G AS , 7X , 6 NOE  COMP, 6 X ,  10HCCF  VEC  T ION ,€X , 7MSTORA  GE  »  8314  069 

67X,7ML0SS  AT/16X  .7MPICX  UP  ,  €X ,)  ABSORPTION ,  3  X ,  1 1HMITH  SOLIDS,  5X,  t)3lA  070 
58HIN  SCLID,6X,9HR€AR  FACE*  S31A  071 

5685  FORMAT  (6X .6HRATE, 3X , 5 (E 1 9 . 3 , 6X) /6X ,5HT0T AL , 21 ,5  IE  1 0 .3 ,6X> / 1H  )  031A  072 

569  FORMAT  (6XAMN00E  HA T 3 X6H7E MP3 XTHOCNS I T Y 3* 6MENTHALPY2X9H900E  MAT3X6931A  073 
1MTEMM3X7MOENSITY3X8MENTMALPY/15X7M10EG  R)UM  TLB/CU  FT)9M  T 8TU/L5) 6 3  1 A  376 
2UX7MCDEC  R)  1 1 M  (L3/CU  FT )  9M  (STU/LB))  931A  075 

5690  FORMAT  T 6X ,  8MNOOE  M  AT  ,  3  X  ,6M  TEMP ,  JX ,  7M0ENSI T  Y  ,  2X  ,  9MC0N0I  §Tu/ ,  2X,  §NN9  8 .»  1  A  375 
IDE  NAT. J*,6MTEHP,JX,7MD£N$lTY,2X,9MCONOl§TU//)5*,7NtO€G  R) ,11M  (LBB3U  077 
2/CU  FT  « , 9M  FT  SC  F ) , 1 1 X , 7M < GEG  R),llM  TLB/CU  FT),9M  FT  SC  F>»  B3'A  076 

550  FORMAT  (5<2I6,F9.2,F10.3,2*F».?I1*2I6,F9.2,F18.3,F10.2)  f»31A  r  r<) 

5500  fORMAT(5*,2l6,F9.2,F19.3,2X,F8.6,lX,?I6,F9.i,F19.3,FlP.6)  8  3  14  365 

551  FORMAT  UMl 10X65HAE ROTMERH  CHARRING  MATERIAL  THERMAL  RESPONSE  AND  AP31A  3*1 

1BL  ATI  Or,  PROCRAM/73X6MPAGCI  3/tM  67X?A6)  3  1  A  0  12 

552  FORMAT  C9X,67M0PT  IOJ.-AL  OUTPUT  OF  THERMOCOUPLE  TEMPERATURES  AND/OR  If.US  CS3 

ISOTHERM  0EPTMS/26X ,  37M0EPTM5  MEASURED  FROM  ORIGINAL  SuRFACE/I**,  «3  !  3*6 

231MTEMPEPA TORE S  IN  DEGREE 5  RAN* IM£/ /6X , »7Hf ACM  OUTPUT  BLOCK  S“OMS  *Yi»  3*5 
3  TWl  TIRE  IN  SECONDS.  THE  CURRENT  SURF*CE  TEMPERATURE, /6X, 2CHYFE  T  E  3  Y 1  *  1" 
6H?*.R  A  T  UPE  S  OF  ,  I2»  66M  TUfR  M  CC  O’JPlCS  ,  AND  TM£  OEPTFS  IN  INCHES  OF  ,  9  ’  «.  *  3*  ' 
512,10m  IS  THERMS //6X, 7 6M The  FIRST  RLOC*  5NCRS  A  SAMPLE  TIME  AND  SUM  A  C»* 
tofiCF  TEMPfOATu»E,  the  SP£ C IF IEC/6* » 7 JNCE p TMS  OF  Tr*E  THERMOCOUPLES  7  *  1 A  3*9 
7  f  I F  AMY)  ivo  THE  ISOTMfMM  TtMPF  PiTURES.  THE/6*,  76»4RR*HGF<*F'  '  0  •»  *  *  1 

a f  this  slocx  .c^respcnos  tc  the  arrangement  of  the  output  ?  •  *  *  *<». 


m 
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Vo  I  i  i'Sjpd.) 


6729 

9(10(2*, no. 6?  > ) 

B31 A 

09? 

6730 

553 

FORNAT  l/76*,llHOfT^OT  OATA/.O 

P31A 

093 

6731 

556 

FORMAT  110(2*, F10* 

61 » 

631 A 

096 

6732 

5*1 

FORMAT (*Fl*.6/(10X7F10.  „  ' 

63 1 A 

095 

6733 

5*2 

FORMAT  ( 12€1*«3) 

831A 

096 

6736 

C 

631 A 

097 

6735 

c 

63  1  A 

096 

6  736 

7600 

GO  TO  (7601, 6061, 761, 761, 761),JCMA 

83 1  A 

059 

6?J7 

7601 

CONTINUE 

631« 

100 

6730 

OnCR( 31*99999. 

831 A 

101 

6739 

SI6*,60l£-12 

63  1 A 

10? 

6760 

C 

CHAR  ANO  RYWLTSIS 

ZONE  CRITERIAL  0ENSIT!ES 

63  1 A 

103 

6761 

0NCR(11*RH0(2> ♦CHCRI*(RMO(1»-RHO(2)  » 

83  1A 

1*6 

€762 

ONCF  ( 2  >  *RHO (2)  ♦  **YCRI*(RMO(  H-RMO(2)  ) 

83 1 A 

1  (5 

6763 

C 

euA 

196 

6766 

C 

INITIAL  VALUES  FOR 

TINE  LCCF 

83  1 A 

107 

6765 

C 

83  1 A 

106 

6  766 

139* 

ITEM— 1 

831 A 

109 

6  767 

OTHCaOTHB 

831* 

110 

6768 

CHH*1.  0 

83 1 A 

111 

6769 

THZRO=TMR(2» 

83  1 A 

11? 

€750 

T  MXT*TPR (21 

83&A 

113 

€751 

T?R2=TPR2*TM2RO 

83  l  A 

116 

€752 

TPR3*TPR3»TH/MO 

63 1 A 

115 

£753 

THFIN=TPR(11 

83  1A 

lit 

6  756 

IAt»0 

63 1A 

11? 

6755 

ITS*# 

83  1A 

110 

6756 

SA-0.0 

63  1A 

11# 

€75? 

GSHT*  0 • 0 

631 A 

128 

6756 

GSNS*0. 

8  3  1 A 

1?1 

6759 

CHO*0. • 

831 A 

122 

6760 

CRT  *0* 

0*1* 

123 

6761 

CSDT3* 0. 0 

83  1 A 

12* 

€  762 

OSOTaO. 

83  1 A 

125 

6  763 

QSI*B. 

P 1 1 A 

126 

676% 

OIOTag. 

93  1 A 

127 

6  765 

CPC(U*0. 

63 1A 

12# 

6  766 

CPK21  *0. 

€31* 

129 

676? 

COLO*9. 

931 A 

138 

6766 

POLO*0. 

83  1 A 

131 

6  769 

OCOT*0. 

03  1  A 

1  3? 

6775 

OfOT»3. 

3  3  1 A 

133 

6771 

QCONO*  8 » 

*3 1 A 

196 

6  772 

OCOMY*  0. 

£  J  1* 

135 

€773 

qcnem*  a. 

?J1* 

1  J*> 

6776 

RAO* 8. 

?3  1* 

t  3? 

€775 

QRR*  9. 

#31? 

13R 

6775 

acowvT.o. 

9  3  1  A 

139 

6777 

QRMT»9. 

03  l  A 

165 

6  779 

A  AOT*  8 • 

#  1 1 A 

161 

6??9 

acMfMT**. 

PJU 

162 

•  ?65 

?7  i* 

163 

€761 

?GRur*8. 

•  t  A 

166 

6  7  §2 

OECCMTa*. 

V  i* 

165 

'763 

3E0TT.J. 

#31* 

16s 

€M6 

GLOSST.J. 

*  T ;  * 

16? 

(765 

TT»8. 

#311 

16* 

6  7*6 

TM3. 

J6* 

189 
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6?87 

SOEGR*  0 . 

B31A 

150 

6  738 

GSEGR=  0 . 

B31 A 

151 

6789 

PGPU=0. 

83  1 A 

152 

6790 

OECOM=0. 

B31 A 

153 

6791 

EGO=0. 

B3  lA 

154 

6792 

HW=0. 

b3 1A 

155 

6793 

BR-0. 

B31 A 

156 

6794 

KK=0 

B31A 

157 

6795 

TH=THZR0 

B31A 

158 

6796 

thos=thzro-otk:n 

B31A 

159 

6797 

THPRT=TH 

B31A 

160 

6798 

REWIND  3 

03 1A 

161 

6799 

CALL  LCOUNT  <-2,LCT,NPG,RECCP0 <35>) 

B31A 

162 

6800 

WRITE  JKOUT  ,542) 

B3 1 A 

163 

6801 

IS=0 

B31A 

164 

6802 

DTH=DTHIN 

B31A 

165 

6S0j 

RSU=ABS  (RSV) 

B31A 

166 

6804 

DELCR=AMIN1(DEL(1)  ,PcLN>/5.0 

B31A 

167 

6805 

TSAVE=TA<i>n. 0 

B31A 

168 

6806 

FA=ll.-PSIA)*BAMRHC'OA**Jl.-PSIA)> 

031A 

169 

6807 

F8=(1.-PSIB>*BB*<RH008*M1.-PSIB>> 

B3  1 A 

170 

6808 

FC=(1.-PSIC>*BC* (RHOOC** ( 1 .-PSIC) ) 

B31A 

171 

6809 

C 

B3  1 A 

172 

68x0 

C 

BEGINNING  OF  TIME  LOOP 

B31A 

173 

6811 

c 

B31A 

174 

6812 

410 

iter=iter+i 

B31A 

175 

6813 

JCMA=1 

B3  1 A 

176 

6814 

c 

B31 A 

177 

6815 

c 

CALCULATION  OF  NOOAl  PROPERTIES 

B3  1 A 

178 

6816 

c 

B3 1 A 

179 

6617 

DO  108  N=2,NL 

B3  1 A 

180 

6818 

108 

RA(N-1)*RA(N-1)>DSI 

B31A 

1  (1 

6819 

RA  «NL » =RA(NL)*DSI/2. 

83  1A 

182 

6820 

CALL  OGLE CNL,RA,RR,NUMN,RAV, AREA, EMA) 

B31A 

183 

6821 

ASU=RR< 1) 

B31A 

184 

6822 

J-l-JFH-JF 

B3 1 A 

185 

6  823 

100 

DO  105  N=1,NL 

B3 1 A 

186 

6824 

J= J+JF 

'v  B31A 

187 

6  825 

RR(N)=RR(N)/ASU 

B31A 

188 

6826 

CALL  LOOK  (3,TA (N) , TT2 , TCP , TKP , THZ, O , Y2,Y2  (4) 

,3)  B3 1 A 

189 

6827 

CN(N)  =  Y2(2> 

B31A 

190 

6828 

CPV (N) =Y?(1) 

B3 1 A 

191 

6829 

HP  (N)  =  Y  2  <  3  T  4-OH  1 

B31A 

192 

6830 

CALL  LOOK  (4,TA(N) ,TT2(1,2)  ,TCP(1,2) ,TKP<1,2> 

,  THZ  (1, 2) ,O,Y2,02,3)  B31A 

193 

6831 

CNC(N)=Y2(2) 

B31A 

194 

6832 

CPC  <N) =Y2(1) 

B31A 

195 

6833 

HC  (N)  =  Y2(3)+DH2 

R3  1  A 

196 

68  34 

IF  (MATL(N)-l)  103,101,102 

B31A 

197 

6835 

101 

X  (  N)  =  1 « 

B31A 

198 

6836 

CP (N) =  CPV (N) 

B31A 

199 

6  8  37 

H(N>=HP(N) 

B31A 

200 

^838 

RO  (N)  -RHO  (1) 

03 1A 

201 

6839 

ROT (N) =RHO (1) 

B31 A 

202 

6840 

GO  TO  105 

BS^A 

2  03 

6841 

102 

X(N)=0, 

B31A 

204 

5842 

CN (N)=Y2(2) 

B31A 

2  (5 

6843 

H ( N) =HC (N) 

B31A 

206 

6844 

CP(N)=CPC(N) 

331 A 

2  07 

190 
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6845 

RO  (N)*RHO  (2) 

B3 1 A 

208 

6846 

ROT (N) =RK0 (2) 

B31A 

209 

6  D47 

GO  TO  105 

B31A 

210 

6848 

103 

X (N)  =  PETE-PET/RO (N> 

B31 A 

211 

6  949 

H(N)  =  X(N)*HP(N)M1.-X(N»*HC(N) 

B31A 

212 

6850 

CP(N)=X(N)*CPtf (U)+(1«-X(N> )*CPC«N> 

S3 1 A 

2 13 

6851 

IFCN-1)  109,109,104 

B31A 

21A 

6852 

109 

ROT (l)sGAHA*(R0A(l)+R08(l) ) ♦OMG*ROC  Ci ) 

B31A 

215 

6853 

GO  TO  1G5 

B31A 

216 

6854 

104 

ROT  (N)  =  (ROA(J) ♦ROB <  J) ) *GAM A  +  OMG* (ROC ( J) > 

B31A 

217 

6855 

105 

CONTINUE 

B31A 

218 

6856 

IF  (NUMN-NBH)  112,106,106 

B31A 

219 

6857 

106 

DO  107  N*N8H,NUHN 

B31A 

220 

6858 

RR(N)  =  AREA(N)  7ASU 

B31A 

221 

6859 

KT=MATL(N) 

B31A 

222 

6860 

CALL  LOOK(KT+2,TA(N),TT2(l,KT),TCP(i,KT> ,TKP(i,KT> ,0>0,Y2,02,2) 

B31A 

223 

6861 

CP(N)=Y2(1) 

83 1 A 

224 

6662 

CN(N)=Y2(2) 

B31A 

225 

6863 

RAT  (N) =DEL (N)/(CN(N)*RR(N> ) 

B31A 

226 

6864 

107 

RO(N)=RHO(KT) 

B31A 

227 

6865 

6866 

112 

HRES=SIG*£PSW* (T  A(NUHN) ♦TRESI * (TACNUMN) **2+TRES**2) +HCONV+1. E-30 
RAT  (NUMN+1)=J  .  /  (HRES*RR  (NUM?4)  ♦•  0  U 00 00 01) 

B3 1 A 

229 

6867 

QLOSS= (TA (NL)  -TA (NBM) )/(0.5MRAT (NL) +RAT  <NEM) ) ♦RC(NL)/RR<  NL) ) 

B31 A 

230 

6868 

QLOSST=QLOSST+QLOSS*nTH/AREAU)*ASU 

B31A 

231 

6869 

CMT=CMT ♦RH0I2I  *DSOT*ASU/ARE A (1) *DTH 

B3 1 A 

232 

6e70 

OEL<NUMNM)=CN(NUMN) /HRES 

B31A 

233 

6871 

RR (NUHN*1) =RR( NUMN) 

B31A 

234 

6872 

OTHS=OTH 

B31A 

235 

5873 

OT3ssTSAVE-TA(1) 

B31A 

236 

6874 

IF  (ITER)  151, 1.13,151 

B31A 

23  7 

6875 

113 

OEDT=0. 

B31A 

238 

6876 

ITER=1 

B31A 

239 

6877 

CH=TCH(2) 

B31A 

240 

6878 

JCNA=2 

B31A 

241 

68  7, $ 

GO  TO  3000 

B31A 

242 

68  80 

C 

B31A 

243 

6881 

C 

OUTPUT 

B31A 

244 

688? 

c 

B31A 

245 

6883 

151 

JCMA-2 

B31A 

246 

6884 

IF  (TH-TNXT+. 00001)  700,3000,3000 

B31A 

247 

6885 

700 

JCMAal 

B31A 

246 

6886 

IF  (TH-THPRT+.  0  0001)  3410,3  0  00,3000 

B31A 

249 

6887 

3410 

IOUHP=l 

B31 A 

250 

6888 

IF  (KCM (4) )  4410,4410,3411 

B31A 

251 

6389 

3000 

I DUMP*  0 

B31 A 

252 

6890 

3411 

OIOT=12.*OSDTB 

B31A 

253 

6891 

NOR= NBM-NL-1 

B31A 

254 

6892 

NLI= ( NUNN-NOR+ 1 ) /2 

B31A 

255 

6893 

CALL  ICOUNT (33+NLI , LCT , NPG , RECORD (35) ) 

B31 A 

256 

6894 

322 

WRITE  (<0UT,543)TH 

B31A 

257 

6095 

WRITE  ( KOUT, 544) 

B31 A 

258 

6896 

WRITE  (KOUT, 545)  ITER, ITS, IX  ,RSU,HW,HE,CH,BR 

B31A 

259 

6697 

WRITE  (KOUT, 546) 

B31A 

260 

6898 

WRITE  (KOllT, 547) 

B31A 

261 

6899 

BPRM* ( GSMS+CMD) /CH 

B31 A 

262 

6900 

BPRNG*GSHS/CH 

B3 1 A 

263 

6901 

WRITE  (KOUT, 548)  BPRM, BPRMG ,CMD,CSHS, CMT, GSMT 

831A 

264 

6902 

WRITE  (KOUT, 5480)  CHCRI,PYCRI 

B31A 

265 

191 
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6903  WRITE  (KOUT, 5481)  Sft ,OIOT, CPE ( 1> *OCOT , CPE < 2> , DPOT 

6904  WRITE  (KOUT, 5482) 

6905  3224  WRITE  (KOUT, 5483)  QCON V,QRP ,RAO, CCHEH, QCOND, QCON VT, QRPT 

6906  IT,  QCONDT 

6907  WRITE  (KOUT, 5484) 

6908  WRITE  ( KOUT, 54 8 5 )P GPU, DECO M,  TB,0EDT, QIOSS ,PGPUT,DECOHT 

6909  1QLOSST 

6910  IF  (NCON)  3020,3020,3021 

6911  3021  WRITE'KOUT,5490) 

6912  GO  TO  3022 

6913  3020  WRITE (KOUT ,549) 

6914  3022  CONTINUE 

6916  IF(I0*:M?)  3023,3023,190 

6916  3023  IF (NOI)  190,190,183 

6917  183  CALL  SLOPQ  (NL , RA ( 1) , T A < 1) , ENO < 1) ,EMO ( i> ) 

6918  IF (NO)  162,182,184 

6919  184  CALL  OGLE  (NO, SO , TO  I D , NL , R A (1) ,T A ( 1) , EMO ( 1 ) ) 

6920  182  IF  (NI)  189,189,185 

6921  185  00  186  1=1, NL 

6922  186  EMO(I)=1./EMO(I> 

6923  CALL  OGLE  <NI , SO (NO+ 1) ,TO( NC+D , NL, TA , RA ,EMC) 

6924  189  IF  (NN)  188,188,187 

6925  187  WRITE  (7,581)  TH.TS, (TO(I) ,  1=1, NOI) 

6926  188  WRITE  (3)  TH,  TS,  <TO(I),  1  =  1, NOD 

6927  K<=KK+ 1 

6928  190  CONTINUE 

6929  IF  (NCON)  3012,3012,3006 

6930  3006  DO  3009  1=1, NL 

6921  IF  (WT)  3007,3007,3008 

6932  3008  CALL  LOOX(ll»X (I),TX,F1»F2,C,0,Y1,D1,2) 

6933  CN0(I)=Y1(1)*CN(I)+Y1(2)*CNC(I) 

6934  GO  TO  3009 

6935  3007  CNO (I) =X ( I) *CN ( I) ♦ ( 1 . 0-X (I ) ) *CNC ( I) 

6936  3009  CONTINUE 

6937  3012  CONTINUE 

6938  C  3C  11  J*l, NL I 

6939  K-NLI 

6940  L=J 

6941  IF  (L-NL)  3002,3002,3001 

6942  30  Cl  L*L*NOR 

6943  GO  TO  3003 

6944  3002  IF  (L*NII-NL>  3003,3003,3005 

6945  3005  K=NLI*NDR 

6946  3003  N=MIN0 ( NUHN, K* L ) 

6947  IF  (NCON)  3004,3004,3010 

6948  3004  WRITE  (KOUT, 550)  (I, NATL (I) ,T6<I) ,RO(I),H(I),  I=L,N,K> 

6949  GO  TO  3011 

6950  3010  WRITE (KOUT, 55 00)  (I , NATL  (I ) , TA  (I) ,RO(I )  ,CN0  (I)  ,I=L,N, K) 

6951  3011  CONTINUE 

6952  IF(IOLMP)  3225,3225,44*0 

6953  3225  IF iTH-THFIN+O. 00001) 1151,2  ,2 

6954  2  JCMA= JCHA' 1 

6955  IF  (NOI)  1,1,3 

6956  3  REWIND  3 

6  957  CALL  LCOUNT  (- 1 , LC T , NPG , RECORO  (35) ) 

6958  WRITE  (KOUT, 552)  NO ,NI , TH, T S ,  (SO ( I) ,  1=1, NCI) 

6959  WRITE  (KOUT, 553) 

6960  DO  fa  K= 1 , KK 


03 1A 
D31 A 

,RA0T,QCHEMB31A 
B31 A 
B31A 

,  TT,0EDTT,B31A 
B31A 
B31A 
B31A 
B31 A 
B31A 
03  1 A 
B31A 
B31A 
B31A 
B3 1 A 
B31A 
03 1A 
B31A 
B31 A 
B31A 
B31A 
B31 A 
B3lA 
B31A 
B31A 
E3*  ' 
B31A 
63  1A 
831 A 
B31A 
B31A 
B3 1 A 
B31A 
B  3 1 A 
B31A 
B31 A 
B316 
B31A 
B31 A 
83 1 A 
B31 A 
B31A 
B31 A 
B31A 
B3IA 
B31A 
B3.1A 
B31A 
B31A 
B31 A 
B31A 
B31A 
B3*A 
B31A 
B31 A 
03  1A 
B3 1  A 
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6961 

REAO  (3*  Th,TS,  <TO(I>,  1*1, NOI) 

83 1 A 

324 

6962 

4 

WRITE  <<0UT,554»  TH,TS,  (T0<I>,  1*1, NOI) 

B31A 

328 

6963 

GO  TO  1 

B31A 

326 

6964 

1151 

IF (JCNA-2)  606,799*606 

83 1 A 

327 

6965 

6061 

TNXT=AHAX1(TPR{1>,TPR(2)) 

831A 

328 

6966 

606 

IF  (TH-TPR2+0#  0  0 00D  154,158,158 

031 A 

329 

6967 

158 

OTPRT*  0TPR2 

B31A 

330 

6968 

0TPR2=DTPR3 

B31A 

331 

6969 

TPR2*TPR3 

B31 A 

332 

6970 

TPR?=THFIN 

83  1A 

333 

6971 

154 

THPRT=AMINl(THPRT*OTBRT,TPi72»  TNXT) 

B31 A 

334 

6972 

4410 

DTH*AMIN1 (0TH8,DELCR/CDSDTB*. 0000001) ,TH-THOS,  5Q.D/(ABS< 

TSAVE-TA(B3lA 

335 

6973 

li> )*.1)*DTH> 

B31A 

335 

6974 

TSAVE=TA< 1) 

B31A 

337 

6975 

OTH-(THPRT-TH)  7 ( AINT < f THPRT-TH) 7DTH+1 . 0) ) 

B31A 

3  28 

6976 

14** 

TH=TH+DTH 

B31 A 

339 

6977 

610 

IF (0TH-. 000001 )  162,162,608 

B31A 

340 

6978 

162 

WRITE  IKOUT,582)  TH  ,OTH,DTHS ,DTH8»THDStDTS ,DELCR »DSDTB 

B31 A 

341 

6979 

TH=THFIN 

B31A 

342 

6980 

JCNA*  0 

83 1A 

343 

6981 

GO  TO  3000 

B31A 

344 

6982 

C 

B31A 

345 

6983 

C 

INTERNAL  DECOMPOSITION  —  DENSITY  CALCULATION 

B31A 

346 

6984 

608 

N=-JFH 

B31A 

347 

6985 

C 

B31A 

348 

6986 

C 

SPECIFY  SURFACE  CHANGES  DURING  THIS  TIME  INTERVAL 

B31A 

349 

6987 

DSOT*DSOT3 

B31 A 

350 

6988 

os=dsot*oth 

B31A 

351 

6989 

OSI*12.0*OS 

B31A 

352 

6990 

SA=SA*DSI 

831A 

353 

6991 

RSU=ABS(RSV*SA) 

B31A 

354 

6992 

DTH9-0THC 

B31A 

355 

6993 

DELtNU=D6L(NL)-OS 

B31A 

356 

6994 

FK=0. 0 

B31A 

357 

6995 

FJF=F JFH 

B31A 

358 

6996 

J1=JFHP 

B31 A 

359 

6997 

DEN0LD=RH0<2) 

B31A 

360 

6998 

COLD=CPE<l) 

B31 A 

361 

6999 

POLD=CPE12) 

B31A 

362 

7000 

CPE  Cl) =SA 

B31A 

363 

7001 

CPE  <2) *S  A 

B31A 

364 

7  0  02 

IE*1 

B31A 

365 

7003 

7004 

ROO2=0.0 

OTA=0. 

B31A 

366 

7005 

TA(NL+1)-TAIN8N) 

'331 A 

369 

7006 

DEL  (NL*1)=DEL(NBM) 

'331 A 

370 

7007 

RR<NL+1)=RR(N8M) 

83 1 A 

371 

7008 

7009 

00  252  1*1, NL 

ISV=HIN0<NL,I+1> 

B31A 

372 

7010 

OMDG(I)=0.0 

B31A 

373 

7011 

RON (I ) =ROOZ 

83  iA 

374 

7012 

OSS*FJF/OEL(I)*DSOT 

B31 A 

375 

7013 

J2-J1 

B31A 

376 

7014 

00  255  J*J2,JF 

63 1 A 

377 

7015 

N*N+J1-1 

B31 A 

376 

7016 

7017 

259 

IF  IJ-JFHP)  25?  259,253 

IF(MATLCI)+MATf  . IS V) -4)  263,260,263 

B3 1 A 

379 

7018 

263 

IF (AHA  XI (TA(I) , TA ( 1*1) ) -TR A  CM)  261,261,262 

B31A 

361 
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7019 

7020 

261 

260 

IF{«ATL(I)+MATL(I)+MATLCISVJ-3)  262,260,262 

Jl=JFHP 

B31A 

333 

7021 

R00Z=FJFH*R<?(I+1) 

B31A 

384 

7022 

RON(I) =RON(I)+FJFH*RO(I) 

83 1 A 

3  85 

7023 

N=N*JFH  ,i 

831A 

3e6 

7024 

GO  TO  264 

031A 

387 

7025 

262 

ROOZ=  0.0 

B31A 

388 

7026 

Jl  =  l 

331A 

389 

7027 

OTA=(TA(I+i)-TA(I))/<F  JFS+F JF/OEL <1  *OEL<I+l) /RR  (I) *RR (1+1) ) 

B3J.A 

390 

7026 

TAS=T  A ( I) 

B31A 

391 

7029 

253 

N=N+ 1 

B31A 

392 

7030 

IF (ABS (OSS)-. 000001)  1 016, 1 016, 1017 

B31A 

393 

7031 

1016 

DROAC=  0 • 

B3  1 A 

3 '4 

7032 

DROflC=0. 

B31 A 

395 

7033 

DROCC=0. 

B31 A 

396 

7034 

GO  TO  1021 

B31A 

397 

7035 

1017 

IF(I-NL)  1015,1018,1015 

B3 1 A 

398 

7  0  36 

1018 

F<=FK-1.0 

B31A 

399 

7037 

IF  JFK)  1019,1016,1020 

B31A 

400 

7036 

1019 

FK=FJF-1.0 

B31 A 

401 

7039 

1020 

DSS=OSDT/OEL(I) *FK 

B31A 

402 

7040 

1015 

IF  (N-l)  1115,1215,1115 

B31A 

4  03 

7041 

1115 

DROAC=  <ROA  (N+l ) -ROA (N)  )*OSS 

B31A 

4  04 

7  042 

JKOBC=(ROB(N+l)-ROB:N) )*DSS 

B31 A 

405 

7043 

DROCC= (ROC<N+l>  -ROC(N)  MOSS 

S31 A 

4  06 

7044 

GO  TO  1021 

B3 1 A 

407 

7045 

1215 

CONTINUE 

B31 A 

408 

7046 

1315 

OROAC=  (ROA1N+1)  -  RH0R.4)  *OSS 

B31A 

4  C9 

7047 

OROBC=  (ROB (N+l) -RHORB) *OSS 

B3 1 A 

410 

7048 

OROCC* (ROC (N+l ) -RHORCI *0SS 

B31A 

411 

7049 

ROT (11 =RH0(2) 

B31 A 

412 

7050 

1021 

TAS-TAS+DTA 

83!  A 

413 

7051 

IF  (TAS-TRACM)  227,227,229 

B31A 

414 

7052 

229 

IF  (T AS  -TRACA)  2 01,201,202 

B31A 

415 

7053 

201 

OROAT=  0. 0 

B31A 

416 

7054 

GO  TO  2113 

B31A 

417 

7055 

202 

IF  (RHORA-ROA(N)  )  211,201,201 

83  1 A 

413 

7056 

211 

RD=ROA (N)-RHORA 

B31 A 

419 

7057 

POW=l.-PSIA 

B31A 

420 

7058 

IF  (PON) 21 11,2112,2111 

e31A 

421 

7059 

2111 

OROAT=(-RO+  <(RO**POW>-  FA*EXP  (-EA/TAS) *OTH) ** 

03 1 A 

422 

7060 

l  (l./POH))/OTH 

B31A 

423 

7061 

GO  TO  2113 

P3  1 A 

424 

7062 

2112 

OROAT  =  RO*  (EXP(-eA*OTH*EXP(-EA/TAS5)-l.)/DTH 

03 1 A 

425 

7063 

2113 

ROA(N)=ROA(N>* ( ORO A TtDROAC ) *OTH 

B31A 

426 

7064 

221 

IF  (TAS  -TRAC3)  203,203,204 

B3 1 A 

427 

7065 

203 

DROBT= 0, 0 

031A 

42o 

7066 

GO  TO  2133 

B31A 

429 

7067 

204 

IF  (RHQRB-ROB (N ) )  213,  20  3,20  3 

B31A 

430 

7068 

213 

RO=ROB ( N) -RHORB 

B3 1 A 

431 

7069 

POW=t • -PSI8 

B31A 

4  32 

7070 

IF(POW)2131, 2132, 2131 

B31 A 

43* 

7071 

2131 

OROBT  = ( -ROM (RD#*POH) -  F8*EXP  (-EB7TAS)  *OTHJ  ** 

B  3  1 A 

4i 

7  072 

1 (1./P0W) ) 70TH 

83  A 

4  35 

7073 

GO  TO  2133 

03 1 A 

436 

707«» 

2132 

DRO8TsRO*(EXP(-88*OTM*EXP<-E0/TAS')-1.)/DTH 

■  J1 A 

437 

7075 

2133 

ROB  <N)=R08(N)MOR08T»OR08C MOTH 

31 A 

438 

7  0  76 

223 

IF  (TAS  -TRACC)  205,205,206 

83  1 A 

439 
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7077 

7078 
7070 

7080 

7081 

7082 

7083 

7084 

7085 

7086 

7087 

7088 
,089 

7090 

7091 

7092 

7093 
7fl94 

7095 

7096 
7  097 

7098 

7099 

7100 
7'01 

7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 
7140 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 


205  OROCT»0.O 
GO  TO  2153 

206  IF (RHORC-ROC(N) >215,205,205 
215  RO=ROC  (N)-RHORC 

PON*i.-PSIC 

IF  (PON)  2151,2152,2151 

2151  OROCT*  (-RO+((RO**PON)-  FC*E7PC-EC/TAS)  *OTH) ** 

1 <1 ./PON) ) /OTH 

GO  TO  2153 

2152  OROCT=RO»(EXP(-BC*OTH*EXP<-EC/TAS))-l.)/DTH 

2153  ROC(N)*ROC(N)+(DROCT*OROCC) *DTH 

225  OMOG(I)3DMOG(I)>OEL(r)*((OROAT«OROBT)*GA)iAfCHG»OROCT) 

227  ONS*IROA(N)*ROB(N) ) *GAHA+OHG»ROC(N) 

RON(I)*«ON«)*DNS 
IF(N-l)  2251,2253,2251 

2251  IF  (DNS-ONCP(IE) )  2253,2252,2252 

2252  CPE(IE)*OEL(I)*((FLOAT(N)-0.5)/FJF+1.-FLOATCI))*12.+RA(I) 
CPE(IE)=*CFE<I£)-0EL(I>/<0N?-0EN0L0M.E-36> MDNS-ONCP  (IE)  >  /FJF*12. 
CPE (IE) xAMAXl ICP£ ( IE) , SA) 

IE*IE+1 

2253  DENOLO=ONS 
255  TAS=TAS+OTA 

264  OMOGCIJaDMOGd) /FJF’PRII) 

RON(I) =RON(I) /FJF 
IF(I-l)  257,257,254 
257  FJF*FJFS 

DTA=OTA/DEL(l)*OELC2)/2.*RRC2) 

GO  TO  252 

254  OT  A=OT  A /DEL (I)  *0£L (1*1 )/RR (I)*RR(I+1) 

252  CONTINUE 

C  NON  SPECIFY  NECESSARY  NEN  POST-DECOMPOSITION  PROPERTIES 
JxJFHP 
00  85  1*1, NL 

IF(ABS(RON(I)-RHO<l))-,Oi)  81,81,82 

81  MATE ( I ) *1 
X«I)*1. 0 
GO  TO  85 

82  IF  (ABS(RON(I)-RHO(2))-«01)  83,83,84 

83  MATE ( I ) *2 
X(I)*0. 

C‘un*CNcm 
GO  TO  85 

84  HATLCI)*0 
X(I)=PETE-PET/RON(I) 

IF  (NT)  8500,8500,8501 

8501  CALL  L0OK(ll,X(I),TX,Fl,F2,C,O,Yl,Ol,2) 

CN (I)*  Y 1 (1) *CN (Il  +  Yl (2) *CNC  (I ) 

GO  TO  85 

85  00  CN<I>*X(I)*CN(I)M1,0-X<H  )*CNC(I) 

85  RAT(I)«OEUI)/(CN(I)*RR(I> ) 

GSM»0. 0 

00  122  1*1, Nl 
122  GSM*GSM*OMOGCI> 

GSNS*GSM 

GSMT*GSMT+GSMS* ASU/ARE  All) *0TH 
OCOT* ( CPE <1) -COLO) /OTH 
OPOT*(CPE(2)-POLO)/OTH 
C 


83 1 A  440 
03lA  441 
831 A  442 
83 1 A  443 
B31A  444 
B3lA  445 
831A  446 
B31A  447 
B31A  448 
e3lA  449 
B31A  450 
B31A  451 
831A  452 
B31A  453 
B31A  454 
B31A  455 
B31A  456 

B31A  458 
B31A  459 
B31A  460 
B31A  461 
B31A  462 
B31A  463 
B31 A  464 
B3lA  465 
B31 A  466 
B31A  467 
B31 A  468 
B31A  469 
B31A  470 
B31A  471 
B31 A  472 
83 1 A  473 
631A  474 
BJ1A  475 
B31A  476 
B31A  477 
B31 A  478 
B31A  479 
B31A  480 
B31A  481 
B31A  482 
B31A  483 
B31A  484 
03 1 A  485 
B31A  486 
63 1 A  4«7 
B31A  488 
83 1A  489 
631 A  4  91 
B:iA  492 
B31 A  493 
83 1 A  494 
831A  495 
B31 A  496 
83U  497 
831A  498 


195 


ipt L-~-r?- 


:  S^rc 


7135 

C 

CALCULATION  OF  IMPLICIT  TEMPERATURE  COEFFICIENTS 

e3iA 

499 

7136 

C 

AND  INTERNAL  ENERGY  RATE  TERMS 

B31A 

500 

7137 

C 

MAIN  BLOCK 

B31A 

?01 

7138 

OVB*0. 

B3l  A 

502 

7139 

SOEGR*  C, 

B31A 

503 

7140 

GSEGRsO. 

B31A 

5  04 

7141 

YB*0« 

B31A 

506 

7142 

RAT (11  *2.*RAT 11) 

B31 A 

5C6 

7143 

CPNL*CP (NL 1 

B31A 

5i>7 

7 144 

NLM*NL-1 

831A 

5G8 

7145 

IMIN«0 

B31A 

509 

7146 

DO  30  I»IMIN,NLN 

B31A 

510 

7147 

IF  (I)  15,15,14 

B31A 

511 

7148 

14 

GSM«GSM-DMOG(I> 

B31A 

512 

7149 

DRODTD=-DMOG(I)/(RR(I> *DEL  <I)> 

B3H 

513 

7150 

FACTl»OTH/(OEL (I)*RR(I)) 

B31 A 

5  it 

7151 

FACT2*GSH/ (OEL  < i) *RR(I) ) 

B31A 

515 

7152 

A(I)=-FACT1*0V8 

831 A 

516 

7 153 

DVB*1. 0/(0.5*<RAT(I)*RAT(I  +  l))*RC(I)/RR(I) ) 

B31A 

517 

7154 

TERM2=R0N(I)*CP(I)-0TH*(CPGAS»(0F0DTD-FACT2) 

B31 A 

518 

7155 

1  -OSOT*R01*CPi/OEL(I>> 

B31A 

519 

7156 

TERM1*FACT1*DVB 

B31 A 

520 

7157 

B(I)=TERH2-A(I)*TERM1 

B31 A 

521 

7158 

C<I)=-TERM1 

B31A 

522 

7159 

D<II*TA(I)*TERM2*<HGAS*OROOTO-HBAR*<RON<I) 

B31 A 

523 

7160 

1  -RO(I))/0TH-FACT2*HGAS-DSOT*RO1*H1/DEL(I))*DTH 

B31 A 

524 

7161 

15 

ROl=ROT (!♦!) 

B31 A 

525 

7162 

X1=PETE-PET/R01 

B31 A 

526 

7163 

CP1*CPV(I*1I*X1*CPC(I*1)*(1.0-X1) 

B31A 

627 

7164 

Hl»HP<I*l»*Xi*HC(m)M1.0-Xl) 

B31  A 

528 

7165 

CP(IM)*CPV(I*1>*X(I*'  J*CPC(I+1I*U.0-X(I*1)1 

e3iA 

529 

7166 

TNS-R01*MBAR+R01*H1+T 

B31 A 

530 

7167 

HBAR3PETE*HP(I*ll-PET/RHO(l)*HC<I*l) 

e31A 

531 

7168 

T=>-RO1*H1*RO1*H0AR 

B31A 

532 

7169 

20 

CALL  LOOK  <2,TA (1*1) ,TT1,THG,0,0»0,HGAS,CPGAS, 

1) 

B31A 

533 

7170 

HGAS=HGAS+OELHG 

B31A 

534 

7171 

GSEGR=GSEGR*HSAS*ONOG< IM) 

B31 A 

535 

7172 

SOEGR* SOEGR+HB AR*0HOG (1*1) 

B31A 

536 

7 173 

IF  (I)  24,24,25 

B31 A 

537 

7174 

24 

EGO=GSMS*MGAS 

631 A 

538 

7175 

HHaHGAS 

B31A 

539 

7176 

GO  TO  30 

B31 A 

540 

7177 

25 

TERM3- (-FACT2*CPGAS-OSOT*RCl*CPl/DEL(I))*OTH 

B31A 

541 

7178 

CC)*C(I)»TERM3 

B31 A 

542 

7179 

OU>«Om*TA<m>*TERM3MFACf2*HGAS*DSOT*RCl*Hl/DEL(I>>*OTM 

83 1A 

543 

7180 

TB*TB-TN*DSOT*RR<I> 

B31A 

544 

7181 

30 

CONTINUE 

331 A 

545 

7182 

A(l)*OTH/OELU) 

631 A 

646 

7183 

tt*tt*tb*oth/areaui  *asu 

P317 

547 

7184 

C 

NON  THE  LAST  ABLATING  NODE  REQUIRES  DIFFERENT 

TREATMENT 

Bo  1 A 

548 

7185 

OROOTO«-OMOG(NL)/(RR(NL)*OCL(NLI) 

831 A 

549 

7186 

FACTlaOTH/(OEL(NL»  *RR( NL)  > 

B31A 

550 

7187 

A(NL)*-FACT1*0VB 

83  lA 

551 

7188 

DV8*1. 0/<0.5* (RAT<  NL  >  <RAT ( NEN) ) ♦PC (NL)/RR(NL) > 

P.S1A 

5"«2 

7189 

C<NL)*“FACT1*0V8 

e.  ia 

553 

7190 

TERN?* RON (NL) *CPlNL5-( CPGAS*OROOTO+ (D50T/0EL(NL)1* 

83 1 A 

55. 

7191 

1  <RO  (NU*CPNL  -RO  1»CP1)>  *OTH 

83  1A 

555 

7192 

8 (Nt»  *TERN2-C (Nll-1 (NL) 

S3 1  A 

556 

f 

i 

i 

! 

j 
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7193 

0<NL)*«A<ND*TERH2»0THMHr-AS,DR00T0-HBARMRCNtNL)- 

B31 A 

557 

7194 

1  RO(NO)  /OTH+OSDTMho  INO*H<NL»-ROl*Hl> /OELCNL1 > 

B31A 

558 

7195 

C 

NON  FOR  BACK  UPS  IF  ANY 

B31A 

559 

7196 

<  *  NL 

B31A 

560 

7197 

IF (NUNN-NBM)  60,40,40 

B31A 

561 

7198 

40 

OO  50  I«NBH,NUMN 

B31 A 

562 

7199 

K»K+1 

B31 A 

563 

7200 

FACT1-OTH/  JOEL  (I)*RR(D) 

B31A 

564 

7201 

ACK)  ■  -FACTl’OVB 

831 A 

565 

7202 

CVB«1.0/<0.5*<RAT<I)*RAT<I*imRCm/RR<I>> 

831A 

566 

7203 

C(K)a-FACTl»OVB 

B31A 

567 

7204 

0<K)*ROm*CP(I)-C(K)-A<K) 

831A 

568 

7205 

50 

D(K)*TA(I)*RO(T/*CPCI) 

B3 1 A 

569 

7206 

C 

NON  IF  THE  IACY  NOOE  NAS  INSULATED  HE  MUST  REPAIR  LAST  G  AND  C 

B316 

570 

7207 

60 

IF(HRES)  80, 7u ,60 

031 A 

571 

7208 

70 

0 (K)*8 IK) *C(K) 

B31A 

572 

7209 

CIK1*9. 

631A 

573 

7210 

C 

NON  BEFORE  GAUSS  REOUCTION  RENRITE  LAST  LINE  OF  MATRIX 

B31A 

574 

7211 

80 

ClM  =  0(K)-CIK>  *TRES 

B31 A 

575 

7212 

L*K 

B3 1 A 

576 

7213 

DO  90  1*2, K 

B31A 

5  77 

7214 

L*L-1 

831A 

578 

721‘ 

0(L)«0(L)-C(L)/fl(Ln)*0(L*l> 

831 A 

579 

7216 

90 

Ba>=B<L)"*CCL)/8IL*l)»A<L+l» 

83  lA 

580 

7217 

3(1)*3(1MA(1> 

031 A 

581 

7218 

D(1)*0(1)/AU> 

B31 A 

582 

7219 

PGPl!*EGO-GSEGR 

03  1A 

583 

7223 

PGPUT=*PGPUT*PGPU*DTH/AREA { 11 *ASU 

B31A 

584 

7221 

DECOH*GSEGR-SOEGR 

B31A 

585 

7222 

0EC0HT*0EC0MT+0EC0M*0TH/ARE A(l) *ASU 

831 A 

586 

7223 

C 

B31A 

587 

7224 

C 

SURFACE  BOUNDARY  CONDITION  FACKAGE 

B31A 

588 

7225 

761 

call  sbcpkg 

831A 

589 

7226 

C 

B31A 

590 

7227 

IF (JCNA-2)  780,780,799 

031 A 

591 

7228 

780 

IF(JCMA)  148,3000,148 

B31A 

592 

7229 

148 

CONTINUE 

B31A 

593 

7230 

C 

031 A 

594 

7231 

C 

SHRINK  (AND  OROP)  OF  LAST  A31ATING  NODI 

B31A 

595 

7232 

C 

B3  1  A 

596 

7233 

c 

OEL  (NL > *OEL(NL 1 -OS  (SEE  INT  DECOHP) 

B31A 

557 

7234 

IF  (DEL  <  NL)  -OE'-N)  149,149,15  0 

B31A 

59# 

7235 

149 

DRIP* DEL <NL)*RO (Nl  )*RR (NL) 

831 A 

599 

7236 

ORtCP*ORlP*CP(NL) 

83  1 A 

600 

7237 

NL-NL-1 

831 A 

601 

7238 

RC (NL) *RC  (NL*1 ) 

B31A 

602 

7239 

ORL*OCLtNL>(*RO(NL»*RR<NL) 

831 A 

60S 

7240 

ORLC«ORL*CP(NU 

83 1 A 

604 

7241 

KAPM8«ORt*K(NLl ♦ORLP’M (NL* 11 

83 1 A 

605 

7242 

TOPl*ORL+DRLP 

8  J  l  A 

686 

7243 

T0P2*0RLC*0«LCP 

83 1 A 

637 

T  244 

T0P3»0RLC*TA(NU  ♦o«lcp*ta  <NL*J) 

83 1 A 

630 

7245 

VQL*0€L  tNLt  •WR1NL1  *0£L (Nl*l)*RR(NL*i> 

831 A 

609 

7246 

0EUNL;»DEUNL)*0€L<NL*1) 

831# 

619 

7247 

RQtNOaTOPl/VCL 

831A 

611 

724# 

CP<NL»*TOP2/tOPl 

83 1 A 

612 

7249 

T  A  »NL 1 *TOP J7TOP? 

831 A 

613 

7256 

H(NU»HAPH9/T0Pt 

83  lA 

6iv 
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7251 

OELR*DEl(NOl)*RR<NUl>/VOl 

B31A 

615 

7252 

CZ=1.0-nttR 

031 A 

616 

7253 

oz*c.o 

B3  1 A 

617 

7?54 

GZ«CZ 

B31A 

618 

7255 

NZ=JF*NL-JFH 

B31A 

619 

7256 

N*NZ  *JF  +  1 

631A 

620 

7257 

K*N 

031 A 

621 

7256 

FZ*0CIR 

B31A 

622 

7255 

E2»GZ 

B3 1 A 

623 

7260 

GO  TO  179 

B31A 

624 

7261 

172  G.c*0Z*  1.0 

B31A 

625 

7262 

173  FZ=OZ-CZ 

E31 A 

6  26 

7263 

IFI<-NZJ  175*176,175 

03  lA 

627 

7266 

176  GZ*DEIR 

B31A 

628 

7265 

175  K=<>1 

03  1 A 

629 

7266 

CZ«CZ»GZ 

031A 

630 

7267 

176  EZ*CZ-0Z 

03 1 A 

631 

7268 

1F(EZJ  178,177,  177 

631 A 

632 

7269 

177  ROA(N)*ROA<W*FZ*ROA<K) 

B31A 

633 

7270 

ROB(N)  *  ROBIN)  *FZ*R08  CIO 

e31A 

636 

7271 

RQC(N>*ROC(N>*F7*ROC<IO 

83 1 A 

635 

7272 

I F  (N-N7 )  171,150,171 

63lA 

636 

7273 

171  N*N*1 

83  1A 

637 

7276 

179  ROA(N)*ROAOO*EZ 

931  A 

638 

7275 

ROBIN) =R08  (<) *EZ 

03  lA 

639 

7276 

ftOC(N)aROC(K)  *EZ 

831 A 

660 

7277 

Gn  TO  17? 

83  1 A 

661 

7278 

178  ROA(N)*ROA(N)*-ROA(K)*GZ 

3314 

662 

7279 

ROB (N) =ROB (N) ♦R08(<)*GZ 

33  l  A 

663 

7280 

ROC(N)*ROC(N)4ROC(IO*GZ 

83 1 A 

666 

7281 

GO  TO  173 

83  lA 

665 

7282 

C 

63 1A 

666 

7283 

150  GO  TO  610 

93  lA 

667 

7286 

1  RETURN 

031 A 

668 

7285 

799  CONTINUE 

63  1 A 

669 

7286 

RETURN 

031 A 

650 

7287 

FNO 

831A 

65i 

7288 

C332* 

832A 

001 

7289 

SUBROUTINE  INPOUT 

B32A 

002 

7290 

C ONNON/C ANCON/ TLMC (2fl, 18,2) ,TH6(2G» , TTS ( 20 , 10 ,2) ,TCMEN<20 ,10,2) , 

63?  A 

003 

7291 

INLCtZOI , NHI (20 ) , KHI (28) , )CMA,IH6,INC,NNG, 

032  A 

006 

7292 

2TCN(2) ,TPR (2) , TRA0 (2) ,  IAB 

832A 

0  05 

7293 

3,TT2(20,2) ,THZ(20,2) ,T 71 <3 8 > , TNG (38) , ON12 ( 2) , T A t 35 ) ,OELM& , U , I2.CH032A 

006 

7296 

6,CNO,8PRNG,KCH<10) 

832A 

007 

7295 

EQUIVALENCE  (NCL ASS, JCNA) 

8  3  2® 

008 

7296 

CQHHON/l,OQCQM/<OUT  ,  IEV  ,OEN,  VR,INH2 3)  ,  110(23)  ,IR(23) 

83?A 

039 

7297 

COHNON/CHACON/TCP(28*2I,  TCM28,  2),TRP(2S,  2) 

?;;?A 

810 

7298 

3,VMO(?) ,N#TL(33> ,OEL (39), SO (20) ,N(38),RC(38),RA(38> , RE CORO ( 36)  , 

532* 

on 

7299 

6*»f  A(| 8) ,F*»C3ft) ,RAV(38)r 

S3?* 

:J  t  ' 

7330 

5ROA(l*2)  ,*C8U52)  .RQC1152)  , 

0J?S 

013 

7331 

6  TPI  (3f| ,WFZ,CNH,NPR, 

6  32* 

3I<» 

73  32 

7  1C  T , NP0 » II, N0M , MUHN , NL ,  QCLH,RFT , 8HCR A , RHCR? »RHURC » T R A 

V  ■  »i 

31- 

7  333 

ACAjTOACatTRACC , RNOC * ,R HQ08 , f *OQC,f A ,E 8 r£C , i* , 88 ,SC , PSI A ,  PS 1 8 , f SIC, 

'32* 

8  V- 

7  3  0* 

9TP>ACN,PET,PfTE»5SV,  ETfc  , OT>B  3.0TM2.  CTPRT,  TPR  J ,  TPR?,  TNZRO,  T*F  J*  ,  NT 

?  32* 

31  ’ 

7305 

CONDON /£MACO*/E*SN, TRC5, 

BJ  ?  A 

1 1 

7  3  36 

i  V9t»T,r.ANA,0Nw,N0  ,F  JFW,  F^S  ,  Ji  ,  JFNP,  ^FN,  INPUT,  3TKIN,  1RP,  NCONV , 

5  3  21 

519 

7307 

?:nCW,OT«»,KN,NI  ,NOI  ,CNCRI,PVC5I,W:0N,  6(*,T*(  Jj)  ,Fl«  JS>  ,r2( ?o> 

8  J?4 

SZ5 

732* 

CONNON/NITC/  fP@N,cm  ,CCte, CP), CPGAS,  CPNU C7, SCOT.OE CT-h,, 

9  J?A 

3 ’5. 

m 
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7309 

7310 

7311 

7312 

7313 
7314* 

7315 

7316 

7317 
7310 

7319 

7320 

7321 

7322 

7323 
732% 

7325 

7326 

7327 
7329 

7329 

7330 

7331 

7332 

7333 
733% 

7335 

7336 

7337 
7  330 
7331 
73%0 
?3%1 
7362 
73%3 
73%% 
73%5 
7  J%6 
73%7 
73%9 
73%9 
7350 
73$1 

7352 

7353 
735% 
?355 

7356 

7357 
735# 

7359 

7360 

7361 
7  362 
?  363 
736% 

7365 

7366 


lDECOMT,OELCR,DELR,DE60LO,D:OT,CNS,OPDT,ORLCP,DRLC,Dr<LP,ORL,!JRC»::,  B32A 
20RO*T,OROeC,OROBT,OKOCCtORCCTtPROOTO»OSOTfOSI,3S.OSSsDT*,OTHC,t  THS032* 
J,OTS,OV8,OZ.EGO,£Z,FACU,FACT2,FA,F8,FC,FjFtFK,FZ,SSCGRt6SK,GSXT,  032# 
6&Z,M1,MAPHB,HBAR,HCAS,MRES,IE,IMN,I,IS,I$V,ITER,J1,.I,XX,X,K?,1,  832A 
5NOR,NL!,NLH,N,NZ,O,PGPU,PGPLT,POLD,PON,0LOSS,QLCSST,ftO,ROlrROO  ,SA632A 
6,SOEGR,TAS,TB,T£HN;,TERN2,T|RH3,TMOS,TM,ThPRT,TN,TOP1,TOP2,TOP  ,T,832A 


/TT , VOL, XI  B32A 

EQUIVALENCE  ti}nlrCHl2(l>),  (0X2,0X12(2)), ITS, TA)  032# 

OIHfNSION  TNRr(2V>  #32# 

%97  FORMAT (12, 3F 10*5)  832# 

%96  FOFiXAT  l//7X,66XT ABLE  OF  OPTIONAL  MASS-FRACTION  FUNCTIONS  FOR  Th€RMB32A 

1AL  C0N0UCTIVZTT725X, 23 Mu  *  F1(X)*KP  ♦  F2IX) •KC//25k,lMX,12X,  B32A 

25HF1IX) ,10X,SHF2(X)//(|3X,3ISX,F10.6)>>  §32# 


%99  FORMAT (12A6) 

502  FORMAT  (6X12*6) 

503  FORMAT  (//26X31H— REACTION 


XINCTIC  EQUATION— -/1M  ) 


832# 

132% 

832% 


50%  f ORXAT ( 18X67MORHO/0TIXE  »  € AXM4  I 
1RMOOA) **PSIA  >/  21*56**  6 ANNA  ( 

2RX008) ••FSI8  >/  19X5 OH* (1-CAXHA) ( 

3RH00C) #CFSIC  )) 

505  FORMAT  (2%X32H— REACTION  KINETIC 

506  FORMAT  (11X8HREACTI ON2X6HRHO05X%MRM0*0I1H87x3HPS I8X1ME6X6KT 
ilXlOXILB/CU  FT )6X7M( i/SCC) 12X7M0EG  R)3X7m(C£C  R) ) 


BA*6XPI-eA/T>RN0CA((RW0A«RH06A>/812A 

BB*EXF<-(l/T)RM0i38t(RM08-RXCR8)/832A 

8C*CXF(-EC/TIRMOOCC(RHOC-RHOPC)/832A 

8326 

CONSTANTS  —  -/IN  )  832 A 

RE # C/2 83 2# 
832* 


507  FORMAT  (1%XA1,2X2F9.2,2XE10.%,F7.2,2XE10.%,70.0>  832* 

510  FORMAT (12X31NRCSIN  VOLUME  FRACTION,  GAMMA  *  F5.3,17M(MASS  FRACTION032A 

1  »  F5.3,1M)/1M  )  832* 

511  FORMAT  (2%X32M  — -TIME  INCRERCNT  INFORMATION-  —  /1M  )  832* 

512  FORMAT  (6X10HINITIAL  TIME  (SEC) F7. 3, 26X16Nf INAL  TINE  (SECIF7.2)  832A 

513  FORMAT  (IN  /6X17NOUTFUT  INTERVAL  *F6. 3,1X27HSEC  F«JOH  INITIAL  TMf  «** 

1UNTIL  F7.3,%M  SEC)  832* 

61%  FORMAT  (6X17H0UTKT  INTERVAL  »F6. 3,  IXOHSCC  FRONF7. 3, 1X9MSEC  U*'ILFB32A 
SEC)  832A 

(6X17HOUTFUT  INTERVAL  »F6. 3, IX5NSEC  FROMF7.3, 1X20MSEC  UNTIL  832* 

83?  A 
832A 
R32A 
L  0EeJ2A 


17.3,%N 

515  FORMAT 
1  FINAL  TIME/IN  ) 

516  FORMAT  (6X, 19XM AXIMUH  TIME  STEF  *,F6.2,«M  SECONDS) 

517  FORMAT  (/29X16M— MODAL  DATA - /i)  ) 

518  FORMAT (6X7%MNOOE  NATL  TEMFERATURf 
tPTM  CONT. RESISTANCE) 

519  FORMAT (7X73MNO.  NO.  (DCG.RANKINE) 

1  (SQ7T-S-QCG/8TU) ) 

520  F0RMAT(3X2:6,F12.2,E13.%,F9.$,F12.6,A1,E15.%) 

521  FORMAT  (  1%X%7«MINI»UN  TNICXNCSS  OF  LAST  A8LATOR 


RELATIVE  THICKNESS 


AREA 


(INCHES) 


WOE 


NOOt 

832* 

(INCN£S>  832* 
832* 
932* 

t INCHES ) F  33?A 


17.6/16X, laxTMERE  ARC  ,  I2,%  ON  NOOtLE?S  ASSIGNED  TO  EACH  4BL 41  INC  NOBS?* 


20C)  53? A 

5  22  FORMAT </l«X69H - MEAT  OF  FflSHAT  ION  OF  MATERIAL  CONSTITUENTS---/* 

iON(8fU/L«)/flX7HFL*STICIlX%NCNiR17*3NC*S»  0324 


523  FORMAT  (29XF9. 2,7X79.2, 11X79. 2)  RJ 2* 

52%  fORMAT(/?X29^NTMAirr  DATUM  TEMPERATURE  -F9.3,  JXUNOCS  RARXINC)  RJ?A 

525  FORMAT  (//22X3M— MATERIAL  THERMAL  PROPERTY  OAT  A //**  l%MNATf*  5  J2A 

1IAL  NO.  lt*Xl%MMA?£RIAL  NO.  210X26NXATfRI AL  NOS.  3  THROUGH  18/6fl%R32S 
2 MV IRC I M  PLASTIC 15X6MCNAR23X  7H81CX-UF)  03?A 

526  FW3MAT  </6X|7W**TTRI  AL  NO.  I  2 ,38*«WfWSJ  TV  **t.3,lXAX6R/CU  FT/  932A 

1  7X1 1MT  EN7E  RATURf  5*  lJNSTfClFlC  Mf  ATf  »  »  2NCCNOUCTIVI  TTS1  AM •  |N  fj/t 

2SI#LE%X10NEHISSIVIfT/5«X*MEfcTMALFT/9X7M«0f<  i*  7ri:H4»TU/Lt-0|6U»l%?2% 

36M*TU/FT-SEC-Oc5»  3XAM(iTU/L*t  /  ?J?A 

fc  18XF*. 2, #*F7.%, 9*710. 7,7*75.2, 6f77.%))  FJ2# 

527  FORMAT 1/6SJ2MMATERIAL  NO, I  2, J8X9N3£N$Z Tv  *Ff  .  3,1  *9*1  t/CU  FT/  ?J2# 

I  Tin  Ml  CMFCRATURE5X  1  JHS%f  CI7IC  MEATS*  1  f NCOMOUCT I VI  T  T/fX7«*  (083? A 


822 

023 

02% 

025 

026 

027 

028 

029 

070 

033 

036 

03$ 

036 

03/ 

039 

839 

060 

861 

062 

063 

066 

065 

866 

067 

060 

069 

059 

051 

052 

053 

056 

855 

956 

•57 

858 

859 

860 
061 
862 
863 
166 
•65 
•66 
26? 
•6* 
$69 
<t?5 

871 

872 
373 
076 
S  "5 
*7* 
8  77 
*79 

588 

391 
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7367 

7368 

7369 

7370 

7371 
7  372 

7373 

7374 

7375 

7376 

7377 

7378 

7379 

7380 

7381 

7382 

7383 

7384 

7385 
7385 

7387 

7388 

7389 

7390 

7391 

7392 

7393 

7394 
7  3  95 
'396 
'397 
.398 

7399 

7400 

7401 

7402 

7403 

7404 
74  05 
7406 
74  07 

7408 

7409 
7413 

7411 

7412 

7413 

7414 

7415 

7416 

7417 
7415 

7419 

7420 

7421 
74?? 
74  23 
7424 


2EG  R)  7X12H (BTU/L 9- DEG) 4X16H (BTU/FT-SEC-DEG) /  p,,.  nA, 

3  (8XF8.2 » 8XF7.4»  9XF10.7)  J 

528  FORMAT  < 39H  BAD  SURFACE  STATE  TABLE  —  QUIT  JOB  )  llll  Ill 

531  FORMAT  ClH  /6X19HTEi  ERATURE  (DEG  R)5F11.2)  JJJ 

532  FORMAT  (7/20X47H RESIN  DECOMPOSITION  GAS  SENSIBLE  ENTHALPY _ ) B32A  naf> 

533  FORMAT  I6X19HENTHALPY  <BTU/LB>5FU.2>  LV  ) B32A  086 

534  FORMAT  ClH  //23X40H— TIME  DEPENDENT  BOUNDARY  CONDITIONS - ?1H  )  P3?a  n88 

53  5  FORMAT  t9X,4HTIM£, 3X , 4HPR0 B  ,3X , 8HREC0 VERY , 3X , 9HRADIATI0N, 4X,4HHE AT  832  A  0  89 

15X,8HPRESSURE,3Xt7HBL0WING/9X,5HCSEC»,7Xf%H0PTN,3X,8HENTHALPY,3X,  B32A  SJn 

29HHEAT  RATE,4X , 5HCOEFF , 14X , 9HREDUCT I0N/28X , 8H ( BTU/L8)  ,  2X , 11H ( ETU/S e32A  091 
44X^7HSEC0N0nL8,SQ  FT*  ’  3X  ’  5"A™>  «  3X>  ^PARAMETER  /^TWECCMI  ,  Z 

!^V~*2J?!iL1.?I*?,2C??.i*»?x*  tF8.4,3X,F8.5,3X#F8.3)  B32A  094 


=  PHI/«EXP*PHI).l.)  WHERE  PHI  *«  2.*BRP*M  B32A  0ls 


IDOT/CHO.  BRP  IN  TABLE)  - - -  °"r  "  £ 

53.  FORMAT ( 7/27X3 OH SURFACE  EQUILIBRIUM  DATA )  lUl  097 

539  FORMAT  ClH  /6X12HH  DOT  G/CM  =F7.4/1H  )  p;?7 

540  FORMm  r(2C7X4HTEMP8X3HL0G7X9H(H  WALL) . 3X> /2 I6X7H t OEG  R)  3X10HM-OCT-C B32A  n99 

1/CM2X 1 1H { 1+B  PRIME)2X)72C29X8H(3TU/LB)4X))  III*  “J? 

541  FORMAT  15XF8.2,4XF7.4, 5XF9.2,8XF8.2,4XF7.4,5XF9.2>  B32A  IS! 

,iMUOX65HAEROTHERH  CHARRING  MATERIAL  THERMAL  RESPONSE  AND  AB32A  102 
18LATION  PROGRAM/73X4HP AGEI  3/1H  67X2A6)  rU*  7°2 

552,  7SR4HODTMXcrJur!:oX^H^2®I3^!RSUR'tflCE’4X»7HSURF4CE‘'9X*5HfSEC),  E32A  m 


2lOH(MILS/SECnHTEMP’5X,9HRECESSION/28X’7H<OEG  »6X  .*»HRATE738X, 


B32A  105 
B32A  106 


553lSl0URSM:^48^rINITIAL  INTERNAL  RA0IUS,1X,F6.3,4X,21HAREA  PRONTO  RA B32A  107 


”*.n?!!!!«IX|r1"I,IU  EXTERN,L  1’4FE.3,AX,21HARE.  p*„p.,c  b.bIIJ  l‘SS 


1DIUS*‘»F4. 2)  - rr.Uf.IU  KUBOTA  1  u. 

555  FORMAT ( 8X15HrPL ANAR  SURFACE)  llll 

556,  (9X’4HTIME»flX'4H?R0B»5x»£*HWE*»»5X,9HfiADIATI0N/9X,5H(SEC) ,  B32A  112 

?7^rr2Mntl!4X,6HFACT°R’<,X,9HHEAT  RRTE/38X,J.1HBTU7SQ  FT-740X,  B32A  113 

t f nbECONU) ) 

560  FORMAT CI2,5E10.0)  p32A  *** 

561  FORMAT  (I2.F8.4)  °32A 

563  FORMAT  1 12, 13 f  11 ,12 , 12  ,7F1 0  .5/8F10.  5)  llll 

564  FORMAT  t Al,9X2F 1 0. 5 ,E 1 0. 3, F 10 . 5 , EiO . 3 , FI  0 . 5 )  B3?A  118 

571  FORMAT  CI2»F10.5,F10.5*F10. 8  »F1 0.5) 

!>75  FORHAT(I1,F9.5,7F10.5/8F10.5)  „?A  7™ 

577  FORMAT (Il»F9.5»5F10.5>  p32"  J20 

57s  F0RMAT(12X2E12.5,2E13,6,I1>  ,,, 

5790  FORMAT  (6X,26HNC  RAOIUS  CORRECTION  ON  CH> 

5791  FORMAT  C3F8.5, F9.4 ,F5 . 3.2F9 .3,12 , A6»  ill 

5792  FJR,;JJJ'/6X’3J!P 0VF9‘4;4H  ATM7/6X.3C25HTEMPERATURE  EDGE  ENTH  )/B32A  125 

:  oX ,  31 2  5H  COEG  R)  AT  T-WALL  ))  R,94  . 

5793  FORMAT  C//6X,37HBAD  SURFACE  EQUILIBRIUM  TABLE  OF  TYPE*I2>  QiPA  iv 

5794  FORMAT  ( / 76X , 74HEQU AL  MASS  AND  HEAT  TRANSFER  COEFFICIENTS  AND  EQUAP32A  123 

1L  DIFFUSION  COEFFICIENtS/6X,29HNOHINAL  SURFACE  VIEW  FACTOR  ",  „I5  }m 

4  F*  \[)  4  0  f  .  ^  . 

««9  FCRJAT1//6X,i»HH-OOT-CAS/C»  F7.a,  8x, HHPRESSURE  =,F9.A,4H  AIN//  FJJA  ,3t 

jsi^r'TiSjiT-RSKSS;."”  sure*ce-»>«<-'2.36;,0E6  ,r  ;  & 

5.  95^F0RMAT  C5X,Fa.2,2X,F7.4,2X, F8. 2, 4 X, A 6 , IX ,F8. 2, 2X, F7. 4,2X , F 8 . 2  4X , A6 P3 2 A  '34 

5796  FORMAT  C2F10. 0 , 9X, II)  932A  i?5 

5797  FORMAT C7/6X,45HRfiTI0  OF  MASS  TO  HEAT  TRANSFER  COEFFICIENTS  =, F6, 3/ 83  A  137 

2W1 FM?5w^3?55U?5p?sSrfnNT  r’F6*3/6X»29HNCMINA‘-  SURFACE  VIEB32A  138 

B32 A  139 
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7425 

7426 

7427 
7426 

7429 

7430 

7431 

7432 

7433 

7434 

7435 

7436 

7437 

7438 

7439 

7440 

7441 

7442 

7443 

7444 

7445 

7446 

7447 

7448 

7449 

7450 

7451 

7452 

7453 

7454 

7455 

7456 

7457 

7458 

7459 

7460 

7461 

7462 

7463 

7464 

7465 

7466 

7467 

7468 

7469 

7470 

7471 

7472 

7473 

7474 

7475 
7475 

7477 

7478 

7479 

7480 
7401 
7482 


C 

C 


C 

C 

C 


5798  FORMAT  (6X,F9.2 

,4X,F9. 2,3X 

. 2,4X ,F9. B32A 

140 

22,3X,F9.2,4X,F9.2) 

B32A 

141 

5799  FORMAT  (6X,66HHEAT  TRANSFER  COEFFICIENT  MULTIPLIED  BY 

(R 

INITI AL/RE32A 

142 

1  CURRENT) **1.8) 

832  A 

143 

580  FORMAT  (8F10.5) 

B32A 

144 

581  FORMAT I/14X20HBACK  HALL  C0NVECTI0N1QX9HBACK 

HALL10X9HRESERVOIR/  B32A 

145 

113X23MCOEF  BTU/FTSQ-SEC-DEG  R8X10HEHISSIVITY8X11HTEMPERATURE/  B32A 

146 

217XF10.4. 18XF 6.3 »10XF 10.2) 

B32A 

147 

582  FORMAT (5F10.5,9X,Il) 

632  A 

148 

DATA  BLANK, ASTER/  1H  ,1H*/ 

B32A 

149 

K0UT=5 

B32A 

150 

INPUT= 8 

B32A 

151 

NMG=0 

B32A 

152 

INCH=8 

B32A 

153 

WT=0.0 

e32A 

154 

INPUT/OUTPUT 

B32A 

155 

B32  A 

156 

1  NPG=1 

B32A 

157 

WRITE  CKOUT ,55 1 ) NPG 

B32A 

158 

READ  (INPUT, 499) (RECORD*!)  ,1=1  36) 

B32A 

159 

EUNITNB32A 

160 

FOB32A 

161 

8999,9999 

)  TUPNI , FOE ( B32A 

162 

WRITE  (KOUT,502)  (RECOROII)  ,1=1,36) 

B32A 

163 

WRITE  (<OUT,503) 

B32A 

164 

WRITE  <KOUT,504> 

B32A 

163 

WRITE  (KOUT,505> 

B32A 

166 

WRITE  (KOUT,5Q6) 

B32A 

167 

RE AO  (INPUT, 5 64) A9 ,RH00A , RHCRA,BA, PSI A,EA , 

TRACA,B9,RHOOB 

,RH0R8,3B32A 

168 

1B,PSIB,EB,TRACB  ,C9,RH00C,RH0RC,BC,  PSIC,EC,TRACC  B32A  169 

WRITE  (KOUT,507)A9,RHOOA,RHCRA,BA,PSIA,EA,TRACA,e9,RHOO8,RHORe,BB,i,32A  170 


1PSIB,E8,TRAC8  , C9, RHOOC,RHORC,3C,  PSIC ,EC, TR ACC 

B32A 

171 

READ  (INPUT, 563)  JF,NUMN,NN,NO,PI,THZRO,THFIN,DTPRT,DTPR2, 

DTPR3,  B32A 

172 

1DTHB,8RP,TPR2, TPR3 , OtLM,DHl ,DH2,DELHG,GAMA,TZ 

B32A 

173 

IF(JF-l)  171, 17  0,1  72 

B32A 

174 

170 

JF=2 

B32A 

175 

GO  TO  172 

E32A 

176 

171 

v)F=  10 

B32A 

177 

172 

JFH=JF/2 

B32A 

178 

JF= JFH  +JFH 

B32A 

179 

JFHP=  .FHt 1 

B32A 

180 

F JFS=JF 

B32A 

181 

FJFH=F JFS/2.  0 

B32A 

182 

NOI=NO+NI 

B32A 

183 

17  (NO)  181,181,182 

B32A 

184 

182 

READ  (INPUT, 580) (SOII) ,1=1, NO) 

B32  A 

185 

181 

CONTINUE 

B32  A 

186 

IF  (NI)  184,184,183 

B32  A 

187 

103 

NOP=NO+l 

B32A 

iea 

READ  (INPUT, 580)  (SO(I),  I=NOP,NOI) 

B32A 

189 

184 

IF (GAMA)  408,409,409 

B32A 

190 

408 

GAMA=RHOOC/(RHOOC- (RHOOA+RHOOB)- (RHOOA+RHOCE) /GAMA) 

B32A 

191 

409 

OMG=l. 0-GAMA 

B32A 

192 

RHOll)=GAMA*(RHOOA+RHOOB) ♦OHG*RHCOC 

B32A 

193 

RHO<2) =GAMA*(RHORA+  RHORB) +OMG*RHORC 

B32A 

194 

GAMAM=G AMA/RHO ( 1) ♦ (RHOOA+RHOOB) 

B32A 

195 

WRITE  5KOUT»5lO)GAMA,GAMAM 

B32A 

196 

IF(DTHB)  412,410,412 

B32A 

197 
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7403 

410 

0THB=5. 

832A 

74  84 

412 

0THIN-. 01 

D32A 

7485 

413 

IF(TPR2>414,414,415 

B32A 

7486 

414 

TPR2=THFIN 

B32A 

7487 

415 

IF<TPR3>416,416,417 

B32A 

7488 

416 

TPR3=THFIN 

B32A 

7489 

IF  ITPR2-TFZR0)  418,418,417 

B32A 

7490 

418 

0TPRT=DTPR2 

B32A 

7491 

0TPR2=0TPR3 

B32A 

7492 

TPR2-TPR3 

B32A 

7493 

GO  TO  416 

B32A 

7494 

417 

WRITE  (KOUT, 511) 

B32A 

7495 

THFIN=AMAX1<THFIN,TPR2,TPR3? 

B32A 

74  96 

WRITE  <<OUT,5l2) THZRO, THFIN 

B32A 

7497 

WRITE  CK0UT,513> 0TPRT.TPR2 

B32A 

7498 

WRITE  (KOUT,514)OTPR2,TPR2,TPR3 

B32A 

7499 

WRITE  (KOUT,515)DTPR3,TPR3 

B32A 

7500 

WRITE  <<OUT,5l6)  DTH0 

B32A 

7501 

C481 

>CCART,BCART,ACART(F1NIM*MCAB32A 

7502 

TRACM=  AM INI (TRAC A, TRAC  8, TR ACC) 

e32A 

75  03 

PETE=RH0(1)/(RH0(1»-RH0(2) ) 

B32A 

7504 

PET=PETE*RH0(2> 

B32A 

7505 

P 

B32A 

7506 

N=0 

L32A 

75Q7 

Jl= JFH 

B32A 

7508 

CALL  LCOUNT  (-NUMN-8,LCT,NPG,REC0RD<35) >  E32A 

7509 

302 

WRITE  (KOUT,5l7) 

B32  A 

7510 

WRITE  <KOUT,518) 

B  1  2A 

7511 

WRITE  (KOUT , 519 ) 

B32  A 

7512 

B=ASTER 

B32A 

7513 

READ (INPUT ,560)  lHATLlI)fTA(I) , AREA II)  , 

DELI I) , RA ( I) ,RC(II ,I*1,NUMN>  B32A 

7514 

AE=RA<2> 

B32A 

7515 

RSV=RA  C 1) 

B32A 

7516 

RA(1)=0.0 

B32A 

7517 

DO  400  1*1, NUNN 

B32A 

7510 

IF (1-2)  4541,452,453 

E32A 

7519 

453 

RA  (I)*RA(I-1)+  (DEL  (I-D+OEL  <I>)7Z.O 

B32A 

7520 

GO  TO  461 

e32A 

7521 

452 

RA{2)  =  0ELtl)  +  r'ELJ2)  72. 

B32  A 

7522 

0=BLANK 

B32A 

7523 

461 

DEL  (I  -1)=0EL(I-U712. 

B32A 

7524 

4541 

RAV(I) =RA(I) 

B32A 

7525 

IFJAE)  4542,4543,4542 

B32  A 

7526 

4542 

ARE A (1 1  *  (  A8S<  RSV+RA (I) ))**AE 

B32A 

75  27 

GO  TO  454 

B32A 

7520 

4543 

IF (AREA  (I> )  4544,4544,454 

B32A 

7529 

4544 

IF  (RSV)  4545,4546,4545 

B32A 

7530 

4545 

AREA(I»=ABS(RSV  +  RA  < I >  » 

B32A 

7531 

AE=1.0 

B32  A 

7532 

GO  TO  454 

B32A 

7533 

4546 

AREA(I)=1. 

B32A 

7534 

454 

WRITE < KOUT, 520) I, MATH  II ,T A (I) , ARE A  Cl) 

»DEL(I)fRACI),B,RCII)  B32A 

7535 

IF  (HATL  CD-2)  401,405,400 

872A 

7536 

401 

NL  =  I 

B,?A 

7537 

00  404  J=l,Jl 

L!  3  2  A 

7538 

N=N+1 

83  2  A 

7539 

RO A  <N) *RHOOA 

53  2  A 

7540 

R08(N) =RHOOB 

e;2A 

190 

199 

200 
201 
202 
2  03 
204 
2t5 
2  06 
207 
200 

209 

210 
211 
212 

213 

214 

215 

216 
217 
210 

219 

220 
221 
222 

223 

224 

225 

226 
2  27 
220 

229 

230 

231 
2  32 

233 

234 

235 

236 

237 
230 

239 

240 

241 

242 

243 

244 

245 

246 

247 
240 

249 

250 
i.51 
25;.. 

253 

254 

255 
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7541 

404 

ROC (N) =RH00C 

B32A 

256 

7542 

J1=JF 

B32A 

257 

7543 

GO  TO  400 

B32A 

25e 

7544 

405 

NL=I 

B32A 

259 

7545 

DO  406  J=1,J1 

B32A 

260 

7546 

N=N+1 

B32A 

261 

7547 

ROA (N) =RHORA 

B32  A 

262 

7548 

ROB(K)=RHORB 

B32A 

263 

7549 

406 

ROC (N>  =RHORC 

B32  A 

264 

7550 

J1=JF 

B32A 

265 

7551 

400 

CONTINUE 

B32A 

266 

7552 

403 

DEL (NUNN) =DEL (NUNN) /12. 

B32A 

267 

7553 

CALL  SLOPC(NUMN,RA, AREA, ENA, EMA) 

B32A 

268 

7554 

NBM=NL*1 

B32A 

269 

7555 

IF(RSV)  4031,4032,4033 

B32A 

270 

7556 

4031 

RSVN=-RSV 

B32A 

271 

7557 

WRITE ( KOUT ,554) RSVN , AE 

B32A 

272 

7558 

GO  TO  304 

B32A 

2  73 

7559 

4032 

WRITE (KOUT, 555) 

B32A 

274 

7560 

GO  TO  304 

B32A 

275 

7561 

4033 

WRITE ( KOUT ,553) RSV, AE 

e32A 

276 

7562 

304 

WRITE  (KOUT, 521)  OELM, JF 

B32  A 

277 

7563 

OELM*DELM/12.0 

B32A 

278 

7564 

READ (INPUT, 582)  HCONV,EPSH, TRES,CHCRI,PYCRI,NCON 

B32A 

279 

7565 

IF  (CHCRI)  305,305,306 

B32A 

280 

7566 

305 

CHCRI-0*  02 

B32A 

281 

7567 

306 

IF  (PYCRI)  307,307,308 

B32A 

282 

7568 

307 

PYCRI=0.98 

B32A 

283 

7569 

308 

TA(NUNN+1)=TRES 

B32A 

284 

7570 

CALL  LCOUNT(4  , LCT,NPG,RECORO(35) » 

B32A 

2  85 

7571 

WRITE( KOUT, 581)  HCONV, EPSW ,TRES 

B32A 

286 

7572 

CALL  LCOUNT (5  , LCT ,NPG, RECORD (35 ) ) 

B32A 

2  87 

7573 

WRITE  (KOUT, 522) 

B32A 

288 

7574 

WRITE  (KOUT,523)OH1,OH2,OELWG 

B32A 

289 

7575 

CALL  LC0UKT(2  , LCT,NPG,RECORO(35) ) 

B32A 

290 

7576 

WRITE  (KOUT, 524) TZ 

B32A 

291 

7577 

c 

B32A 

292 

7578 

CALL  LCOUNT (6  , LCT, NPG, RECORD (35) ) 

B32A 

293 

7579 

310 

WRITE  (KOUT, 525) 

b32A 

294 

7580 

IT=0 

B32A 

295 

7581 

ILO  C3) =1 

B32A 

296 

7582 

IL0(4)=1 

B32  A 

297 

7583 

KT=1 

B32A 

298 

7584 

350 

IT=IT+1 

B32  A 

299 

7585 

READ  (INPUT, 571)  NC, TT2 (IT , KT) , TCP( IT ,KT) , TKP (IT,KT) ,TEP ( IT , KT) 

B32A 

300 

7586 

IF (NC) 351,350,351 

B32  A 

301 

7587 

351 

IHI(KT+2)=ILO(KT*2)*IT-l 

B32A 

3  0? 

7588 

IR(KT*2)*U0(KT*2) 

B32  A 

303 

7589 

THZ (1 • KT) =  0» 

B32A 

304 

7590 

IF  (IT-2)  2357,1357,1357 

B32A 

305 

7591 

1357 

DO  357  1=2, IT 

B32A 

3C6 

7592 

357 

THZ(I,K1) =THZ (I-1,KT)* (TCP ( I ,KT) +TCP  t I-1,KT))/2«*(TT2<I,KT)-TT2(I- 

B32A 

307 

7593 

ii,  tan 

B32A 

308 

7594 

2357 

CONTINUE 

B32A 

309 

7595 

CALL  LOOK  (KT*2,TZ,TT2(1,KT),THZ(1,KT) ,0,0,0, HSH, DUN, 1) 

e32A 

310 

7596 

DO  359  1=1, IT 

B32A 

311 

7597 

359 

THZ(I,KT) =THZ (I , KT ) -HSH 

83  2  A 

312 

7598 

CALL  LCOUNT (6+IT  , LCT,NPG,RECORO (35) ) 

e32A 

313 
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7599 

312 

IF  (IT-1)  2312,1312,1312 

B32A 

314 

7600 

1312 

WRITE (KOUT, 526) <T, RHO(KT) , < TT2 < I,KT) , TCP (I , KT ) , TKP (I ,<T) , THZ ( I 

,KT) B32A 

315 

7601 

1 

,TEP(I,KT> ,1=1, IT) 

832  A 

316 

7602 

2312 

CONTINUE 

B32A 

317 

7603 

KT  =  KT ♦ 1 

B32  A 

318 

7604 

IT=0 

032  A 

319 

7605 

IF(NC)  356,353,353 

B32A 

320 

7606 

356 

IF < KT-2)  350,350,411 

B32A 

321 

76  07 

411 

READ  (INPUT, 561)  KT,RHO(KT> 

B32A 

322 

7608 

IF  (RKO(KT))  3550,3550,355 

P32A 

323 

7609 

3550 

WT=1. 0 

B32  A 

324 

7610 

IX=0 

B32A 

325 

7611 

3551 

ix=ixm 

B32  A 

326 

7612 

READ  (INPUT, 497)  NC,TXJIX),  FI ( IX) , F2 ( IX) 

B32A 

327 

7613 

IF  (NC)  3552,3551,3552 

B32A 

328 

7614 

3552 

ILO(ll) -1 

B32  A 

329 

7615 

IHI(11)=IX 

B32  A 

330 

7616 

1R ( 11) si 

B32A 

331 

7617 

CALL  LC0UNT(8+IX,LCT,NFG, RECORD (35)) 

B32A 

332 

7618 

IF  (IX-l)  6001,6000,6000 

B32A 

333 

7619 

6000 

WRITE (KOUT, 498)  <TX(I) ,Fl ( I) , F2 (I) , 1= 1 ♦ IX) 

B32A 

334 

7620 

6001 

CONTINUE 

B32A 

335 

7621 

IF  (NC)  411,411,353 

e32A 

336 

7622 

355 

IT=IT+ 1 

B32A 

337 

7623 

READ  (INPUT, 571)  NC,  TT2(IT  ,  KT)  ,7CP(  IT  , KT) , TKP  (IT  ,KT> 

B32A 

338 

7624 

IF  (NC)  354,355,354 

B32A 

339 

7625 

354 

ILO (KT ♦ 2) =1 

B32A 

340 

7626 

IKI(KT+2)=ILO(KT*2)+IT-l 

B32A 

341 

7627 

IR(KT+2)=IL0(KT*2) 

B32A 

342 

7628 

CALL  LCOUNT (5+IT  , LCT,NPG,RECORD(35) ) 

B32A 

343 

7629 

314 

IF  (IT-1)  2314,1314,1314 

B32A 

344 

7630 

1314 

WRITE  (KOUT, 527)  KT.RHO(KT) ,<TT2(I,KT) ,TCP(I ,KT)  ,TKP (I ,KT ) ,1  =  1 

, IT) B32A 

345 

7631 

2314 

CONTINUE 

B32A 

346 

7632 

IT=0 

B32A 

347 

7633 

IF (NC)  411,411,353 

B32  A 

348 

7634 

C 

B32A 

349 

7635 

353 

NT  1=0 

B32A 

350 

7636 

361 

IN=1*NT1 

B32A 

351 

763  7 

NT 1=8+NT 1 

B32A 

352 

7638 

IF  (NT  1-IN)  6003,6002,6002 

B32A 

353 

7639 

6002 

READ  (INPUT, 575)NC, (TT 1(1) ,I=IN,NTi> , (THG(I) ,I=IN,NTl) 

B32A 

354 

7640 

6003 

CONTINUE 

B32A 

355 

7641 

IF  (NC) 361,361,  362 

B32A 

356 

7642 

364 

NT 1=NT 1-1 

B32A 

357 

7643 

362 

IF  (TT 1 (NT  1))  364,364,365 

B32A 

358 

7644 

365 

IL0(2) =1 

B32A 

359 

7645 

IR(2)  =  1 

B32A 

360 

7646 

IHI(2)=NTl 

B32A 

361 

7647 

CALL  LCOUNT (3* ( (NT  1+9) 75) , LCT ,NPG, RECORD (35) ) 

B32A 

362 

7648 

316 

WRITE  (KOUT, 532) 

B3;  A 

363 

7649 

IFN=Q 

B32A 

364 

7650 

368 

IN=IFN*1 

B32A 

3(5 

7651 

IFN=HIN0(NTl,IFN+5> 

B  3  2  A 

366 

7652 

IF  (IFN-IN)  6005,6004,6004 

B32A 

367 

7653 

6004 

WRITE  (KOUT, 53D  (TTKI)  ,I=IN,IFN  ) 

B  7  2  A 

3C 

7654 

WRITE  (KOUT, 533) (TMG (I ) , 1= IN, IFN) 

83  'A 

369 

7655 

6005 

CONTINUE 

B32A 

370 

7656 

IF  (NT 1-IFN)  367,367,368 

832A 

371 
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l  7657 

367  K»i 

6 32 A  372 

7658 

2803  REA0(INPUT»58S)  BPG,  UNRTt  I)  ,1*1,19) 

B32A  373 

7659 

IFtTNRYti))  2804,2804,2805 

B32A  374 

i  7660 

2805  THG(K) -BPG 

B32A  375 

7661 

00  2802  1-1,19 

B32A  376 

7662 

IF(TNRY(X)-99.)  2800,2800,2801 

B32A  377 

7663 

2801  TTS(I,K,1) -TNRY (I) 

B32A  378 

766% 

KHIOO-I 

B32A  379 

7665 

NHIIK)*I 

7666 

GO  TO  2802 

B32A  380 

7667 

2880  IF(TNRY(I))  2811«ta>tCt«tftl 

B32A  381 

7668 

2610  n.*C<I, K,l>  *  TNRY II) 

B32A  382 

7669 

NHICIO-I 

B32A  383 

!  767# 

2802  CONTINUE 

B32A  384 

7671 

2811  K-K+i 

B32A  385 

7672 

GO  TO  2803 

B32A  366 

7673 

2804  NNG-K-1 

B32A  387 

767 % 

IHI  (125-NHG 

B32A  388 

7675 

ILO<12)*i 

B32A  389 

7676 

IRH2»*1 

B32A  390 

7677 

OO  2818  K*1,NHG 

7678 

NLO(K) *KMI <K) ♦ 1 

B32A  392 

7679 

KHIK-KHICK) 

B32A  393 

7660 

NLGK-NLO(K) 

B32A  394 

7681 

NHIK-NHIfK) 

B32A  395 

7682 

OO  2807  I=1,KHIK 

B32A  396 

|  7683 

2807  TTSCI,K,21*TTSa,K,l» 

B32A  397 

7684 

IF (NHIK-NLOK)  2818,2809,2809 

{  7685 

2809  OO  2608  I»NLOK,NHIK 

7686 

TLNCa,Kfl)»ALOG(ANAXl(YLHC(X, *,!),. 80081)  » 

B32A  399 

7687 

2808  TLNCa,K,2)»TLNC(I,K,l) 

B32A  400 

7688 

2818  CONTINUE 

7689 

583  FORMAT  12 0F4.0) 

B32A  401 

7690 

VFZ-1.0 

7691 

IFtBRG.GT.O.)  VFZ*BPG 

7692 

RETURN 

7693 

END 

7694 

CB33A 

833A  801 

7695 

SUBROUTINE  LOOK (XX, XL, It, A', »,C ,t ,Y ,0,1  ON) 

B33A  002 

7696 

COMMON/LOOCON/ ROUT , XEX, OEN , VR, IHI (23) , ILO ( 23) , IR (23) 

B33A  003 

7697 

DIMENSION  X(1),Y(1),0(1) 

B33A  0(4 

7698 

DIMENSION  A(l) ,B(1),C(1),€(1) 

B33A  005 

7699 

IM-IHI  ill) 

B33A  006 

7700 

IL-ILOUI) 

B33A  007 

7701 

IEX-0 

B33A  006 

7782 

IF(XtIH)-X(IL)  >  30,30,29 

B33A  •'09 

7703 

30  I EX-1 

83  7  A  *  *.0 

7704 

IF  (XL-X(XH))  3,2,31 

033 A  Hi 

7705 

31  IF  (XL-XtID)  6,5,4 

833A  012 

7706 

29  IF (XL“X(IH>)1,2,3 

833 A  013 

7787 

1  IFtXL-X«IL>>4,5,6 

833A  014 

7708 

6  I-IR(II) 

833A  015 

7709 

I>MXM0a,XM) 

8I3A  016 

7718 

I-MAXI  (I, ID 

8331  Ii 

7711 

IS-1 

833A  81C 

7712 

IT-1 

833A  019 

7713 

GO  TO  6 

8J3A  020 

7714 

ii  x«m 

B33A  827 

m 

i 

t 
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7715 

IS=0 

B33  A 

022 

7716 

8 

IF(IEX)  26,26,30 

B33A 

023 

77 17 

28 

IF  (XL-XfD)  7,10,9 

B33A 

024 

7713 

38 

IF ( XL- X < I) )  9,10,7 

B33A 

025 

7719 

7 

1*1-1 

B33A 

026 

7720 

IT*0 

B33A 

027 

7721 

IF  CIS! 10,10,8 

B33A 

028 

7722 

9 

IF (IT) 10,10,11 

B33  A 

029 

7723 

3 

IE  X=3 

E3  3A 

0  30 

77  24 

2 

I=IH-1 

B33A 

031 

7725 

GO  TO  10 

B33A 

0  32 

7726 

4 

IEX=2 

B33A 

C33 

7727 

5 

I  —  I L 

B33A 

034 

7723 

10 

OE  N*X < 1*1 )-X (I ) 

B33A 

035 

7729 

IR (XI) s  I 

B33A 

036 

7730 

vR*xi-xm 

B33A 

037 

7731 

IFdONl  13,13,14 

B33A 

0  38 

7732 

14 

GO  TO  <21,22,23,24) , ION 

B33A 

039 

7733 

24 

Y (4) =E (I) 

B33A 

040 

77  34 

0  <4)=E  (I*l)-E< I ) 

B33A 

041 

7735 

23 

Y(3)=C(I) 

B33A 

042 

7736 

D  <  3)*C  < I* ll-C (I) 

B33A 

043 

7737 

22 

Y (2)*B (I) 

B33A 

044 

7738 

D  <2)*8  (I*l)-B( I) 

B33  A 

045 

7739 

21 

Y '  i)*A  (I) 

B33A 

046 

7740 

D<1)=A<I*1)-A(I) 

B33A 

047 

7741 

OO  12  J*l,ION 

B33A 

043 

7742 

20 

0 ( J)=0< J) /DEN 

033A 

049 

7743 

12 

Y  <J)=Y (J) +0(  J) *  VR 

B33  A 

050 

7744 

13 

VR=VR/OEN 

B33A 

051 

7745 

RETURN 

B33  A 

052 

7746 

END 

B33A 

053 

7747 

CB34A 

B34A 

001 

7748 

SUBROUTINE  CONP<X,Y,VOIO,IFUAG) 

7749 

DIMENSION  Y <20 , 10, 2) 

7750 

DIMENSION  X (20 ,10,2) 

B34  A 

003 

7751 

IFLAG*  0 

B34A 

004 

7752 

00  3  1*1,2 

B34A 

0  05 

7753 

00  3  K*i»  2 

B34  A 

007 

7754 

IF<Y<I,1,K)-W0I0)  1,2,1 

7755 

1 

IF  i C 1 , 1 ,  <) -VOID)  3,2,3 

7756 

3 

CONTINUE 

B34A 

009 

7757 

GO  TO  4 

B34A 

010 

7758 

2 

IFLAG  *1 

634  A 

Oil 

7  759 

4 

RETUR  f 

B34A 

012 

7760 

END 

B34A 

013 

7761 

CBS  6  A 

836  A 

001 

7762 

SUBROUTINE  OGlE<N,XAH,PRH,NUHX,X,P,EM> 

636A 

00? 

7763 

DIMENSION  XAMtl) ,X < 1) , P <1) , EM < 1) ,PRN< 1 > , OPOIN < 1) 

B36  A 

003 

7764 

XO IF*  X ( NUMX) -X  < 1) 

836A 

004 

7765 

IS*1 

BJ6A 

"05 

7766 

2 

00  600  J* 1 ,N 

836  A 

C06 

7767 

XA*XAN(J) 

B36A 

007 

7768 

59 

10*1 

B36A 

Qtn 

7769 

I  T*l 

036  A 

OC 

7770 

61 

IF  (XOIF)  72,60,71 

B3-  A 

010 

7771 

71 

IF  <  XA-  X  (IS))  62,63,64 

636  A 

Oil 

7772 

72 

IF(X.'IS)-XA)  62,63,64 

8364 

01“ 
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7773 

62  IF  (IS* 1)67 1,671 >68 

B36A 

013 

7774 

68  IS*IS-1 

B36A 

014 

7775 

IT*2 

B36A 

015 

7776 

GO  TO  (61,66) » 10 

B36A 

016 

7777 

672  IS*NUMX 

B36A 

017 

7778 

671  I*IS 

B36A 

018 

7779 

H=0. 

B36A 

019 

7780 

DP0I*£M(I> 

B36A 

020 

7781 

GO  TO  67 

B36  A 

021 

7782 

63  PR*P(IS> 

B36A 

022 

7783 

OPDI=EM(IS> 

B36A 

023 

7784 

GO  TO  601 

B36A 

C24 

7785 

64  IS*IS*1 

B36A 

025 

7786 

!F(IS-NUMX)69,69  ,672 

B36A 

026 

7787 

69  10*2 

B36A 

027 

7788 

GO  TO  (61,65), IT 

B36A 

028 

7789 

65  IS*IS-1 

B36A 

029 

7790 

66  X*IS 

B36A 

030 

7791 

G=r<(<p(m>-p<i>>/mi*ii-x(i>)>-EH<in/<x  <i*n-x<r, 

)  B36A 

031 

7792 

F*(((EM(I*1)-EN(I>  )/(X  II*1)-X(I)))-2.*G)/(X  (Ivi)-X(D)  B36A 

032 

7793 

Ha  !F* (XA-XCI+t ) ) +Gi  MX  A-X(  I) ) 

B36A 

033 

7794 

OPDI*(H*H*EN(mFMXA-X(I) )MXA-X(I)) ) 

B36  A 

034 

7795 

67  PR* (H*EM(I)  )M  XA-X (I))*P(I) 

B36A 

035 

7796 

601  CONTINUE 

B36A 

036 

7797 

PRM ( J) aPR 

B36  A 

037 

7798 

600  CONTINUE 

B36  A 

038 

7799 

60  CONTINUE 

B36  A 

039 

7800 

4  RETURM 

B36A 

040 

7801 

END 

B36A 

041 

7802 

CB3  7A 

B37A 

001 

7803 

SUBROUTINE  LCOUNT  (J,LCT,NPG,R) 

B37A 

0  C2 

7804 

COMNON/LOOCOM/KOUT, IEX ,0EN , VR, IMI (23) , ILO (23> , IR (23) 

337  A 

003 

7805 

I*J 

B37A 

004 

7  836 

OIMENS ION  R(2) 

e37A 

06 

7807 

7808 

551  FORMAT (1H112X61HAER0THERN  CCUPLEO  ABLATION  BOUNDARY 
1ENT  PROGRAM/73X4HPAGEI3/68X2A6) 

LAYER  ENVIRONM 

7809 

IF (I)  2,2,3 

B37A 

000 

7810 

2  I*~I 

B37A 

009 

7811 

GO  TO  4 

B37A 

010 

7812 

3  LCTaLCT-I 

B37A 

011 

7813 

IF  (LCT)  4,5,5 

837  A 

012 

7814 

4  NPG:»NPG*1 

837  A 

013 

7815 

LCT*55-I 

837A 

014 

7816 

WRITE  (<COUT,55l>  NPG,R 

837A 

015 

7817 

5  RETURN 

837A 

016 

7818 

END 

B37A 

017 

7819 

CR38A 

838A 

001 

7828 

SUBROUTINE  SBCPKG 

838  A 

002 

7821 

COMMON 7CANC0N7TLNC (20, 10,2) »TMG (20),TTS(28,10,2) , TCMEM  (20, 10,2) .  B38A 

003 

7822 

lNLO(20),NMK20),KMI(20),JCMA,IMG,tMC,NNG, 

838A 

004 

7823 

2TCH(2) ,TPR(f),TRAO(2) ,1*1 

§38* 

005 

7824 

3,TT2(28,2) ,TM2(20,2) ,TT1(3  0),TMG(30>,OM12(2)  ,TA<39), 

0€LNG,Ii,l2,CM83«A 

006 

7825 

4 ,CMO, 9PRM6,KCM (10) 

838  A 

007 

7826 

EQUIVALENCE  (NCLASS, JCNA) 

838A 

008 

7827 

COMMON/LOOCOM/XOUT,ICX,0|N,VR,IMI(|3),ILO<23) ,IR(23) 

§3t>  A 

009 

7828 

COMNON/CNACOf1/TCP(20*2) ,  TCP(2B,  2»,T*P(20,  2) 

•38* 

010 

7829 

3,RMO(2),N8TL(38) , DEL (39) ,SO (28) ,N(38) ,RC (38 ) ,RA (38) , 

RECORD  (36),  838A 

Oil 

7830 

4  AREA (3 8) ,£NA(38) ,RAV(38), 

§38* 

812 
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7831 

5ROA  (15  2) , HOB ( 152) » ROC ( 152)  , 

B3  6A 

013 

7832 

6  TPI(30),VFZ,CMH,NPR, 

B38A 

014 

7833 

7LCT  ,NPG, II,NBM,  NUNN,  NL  ,  OELH,RFT , RMORA, 

RHORB.RHORC 

,  TRA 

EISA 

015 

7834 

6CA, TRAC8,TRACC, RHOOA ,RHOOB,RHOOC»EA,EB*EC* 

BA 

,BB,9C,PSIA 

, PSIB.PSIC 

,  B38A 

016 

7835 

9TRACN,PET,PETE,RSV,£TA,0TPR3,DTPR2,DTPRT,TPR3,TPR2,TMZR0,THFIK,MT 

038A 

017 

7636 

COMNON/CHACOM/EPSN, TRES, 

B38A 

018 

7837 

) TMMT, G ANA, OMG, NO, FJFH,FJFS,UF,JFHP,JFH, INPUT 

,  OTHIN 

,BRP,HCONV 

,  B36 A 

019 

7838 

2  INCH, CTMB,NN,NI ,NOI ,CHCRI, PYCRI»NCON,  NR, 

TX (30) ,F1(30) ,F2 (30) 

636  A 

020 

7639 

COMNON/S8CP/8F,CHNA,CHNX,OCRR,ONIV,EHXV,ERFX 

, ERRC,ERR,ERRS,I3 , 14, 

B36A 

021 

7640 

t VRH,VRP,  IPR,IRA,IRb,IRC,IRO,lTL,PHI,QQ,TABC 

, TEMP,TSMA, 

TSMI , TSSQ 

B38A 

022 

7841 

COHMON/SBCP/  TNXT,  ONCPf 3 > ,CP| 1 3*  ,  TO ( 20> 

♦VITER C5t),EXTER(51) 

B38  A 

023 

7842 

CONMON/SBCP/  Y2(16>, 02(16) ,Y3(8),03(8) ,T1(2) 

,01(2) 

B38A 

024 

7843 

COHHON/SBCP/  CPC(  50>,CPV(  50>,CP(  5#), HP 

( 

50) ,MC (  50) 

,CN(  50), 

B38  A 

025 

7644 

1RAH  50)  ,ROT  (  50),RO(  90),  X(  90>,ROtt(  90), 

0MDG(  50), RR 

(  50), 

B36A 

026 

7845 

2CNC (  50), A<  50), B<  90)  ,C(  S§),0(  90),ENO( 

50),CNO(  50) 

B38A 

027 

7646 

COMMON/ S8CP/8R,  CHZ,  CMOL,  OEOT,OECTT ,OSOTB,OTH 

,GSNS,HW» 

B38A 

028 

78W7 

1HE,  ITS.PRES, QCHEN, OCMEHT , QCONO.OCONOT, 

QCONV,OCONVT, 

QRA ,ORP , 

038  A 

029 

7848 

2 QRPT, R AO,RAOT , RSU, SIG,  TSAVE,VF,XP1, ASU 

B38A 

030 

7849 

COHMON/NISC/  8PRM,CNT , COLO, CPI, CPGAS, 

CPNL,CZ,OCOT , 

OECOM, 

B38A 

031 

7650 

10EC0MT ,OELCR,OELR,OENOLO,OIOT,ONS,OPOT ,orlcp 

,ORLC,ORLP, 

DRL , ORC AC , 

e38A 

032 

7851 

2 OR OAT,  0R03C,DR03T, TnCCC ,OR0CT,ORO9TO, OSOT • 

OSI  ,0S,DSS«0TA,0THC,DTHSB3AA 

033 

7852 

3,OTS,OVB,02,ESO,EZ,FACT1,FACT2,FA,FB,FC,FJF, 

FK,FZ,GSEGR 

,GSM,GSMT, 

838  A 

034 

7653 

4G2, HI , HAPHB,HR AR,H6AS, HR£S , IE, INTN, I, IS , XS V, 

ITER,J1,J,KK,K,KT,L, 

038  A 

035 

7  854 

5N0R,NLI,NLM,N,  NZ, 0,PGPU»PGPU7  ,  POLO,  POM,  QL  OSS 

,  QLOSST ,RO» 

ROl,ROOZ,SA838A 

036 

7655 

6,SOEGR,TAS,TB,TERM1,TERN2,TERH3,TMOS,TM,THPRT,TN,TOP1,TOP2,TOP3,T1 

,  028A 

037 

7856 

7TT , VOL , <1 

B38  A 

038 

7857 

EQUIVALENCE  (OH1,OH12( D ) , <0H2,0H12<2> ) , ITS, 

T  A) 

B38A 

039 

7858 

OATA  V0I0/4NV0I0/ 

B38  A 

040 

7859 

529  FORMAT (17H  ITERATION  STOP  ) 

B3  8  A 

041 

7860 

582  FORMAT (1P12E10.3) 

B38  A 

042 

7861 

IF(JCMA-2)  771,771,770 

03S  A 

043 

7862 

770  IFCJCMA-4)  2513,744,753 

B38A 

044 

7663 

771  CONTINUE 

838  A 

045 

7864 

XPl*X(l) 

838A 

046 

7  865 

VF=VFZ 

7866 

ITL*1C 

938  A 

047 

7867 

ITS*1 

B38A 

048 

7666 

VRP*(TH-TPR(1) ) /(TPR(2)-TPR(1>) 

B38A 

049 

7669 

TNXT*ANAX1(TPR(2), TPR(l)) 

B38A 

058 

7670 

CM  *  TCM1UVRP* (TCM(2)-TCH(1)) 

B36  A 

051 

7871 

QRA*TRA0<1>*V*PMTRA0<2>-TRA0<1>> 

B3  8  A 

052 

7872 

CHZ«CM 

B3SA 

053 

767J 

IPR*1 

838  A 

054 

7674 

ERFX*0(1) 

83  3  A 

055 

7875 

CALL  L OQK  ( 12, GSHS/CH, TNG, 0,8,0,8,72,02, 6) 

838  A 

056 

7876 

1M6*IR<12) 

83  8  A 

057 

7877 

VRM*VR 

936  A 

058 

7878 

2510  IL0(14)*ML0(ING) 

63  8A 

059 

7675 

I  Ml (14) »NNI ( INC ) 

838  A 

060 

7860 

ILO<l5)*NtO(I*»GM> 

83  3  A 

*61 

7881 

I MI (IS) *NMI (INC* 1) 

83  )  A 

062 

7882 

1 1*IL0( 141 

638  A 

963 

768] 

12*  ILO ( 15 ) 

838A 

064 

7664  L  1*1 1 

7385  LZ«I2 

7886  [m>1.9 

r$tr  if<imi (h)-kou^ >  420,429,721 

7811  729  CONTINUE 


«.o3 
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7689 

7890 

7891 

7892 

7893 
7694 
7899 
7696 
7897 
7698 

7899 

7900 

7901 

7902 
7003 

7904 

7905 
7986 
790 7 

7906 

7909 

7910 

7911 

7912 

7913 

7914 

7915 

7916 

7917 
7916 

7919 

7920 

7921 

7922 

7923 

7924 

7925 

7926 

7927 

7928 

7929 

7938 

7931 

7932 

7933 

7934 

7935 

7936 
79  J? 
793* 

7939 
7948 

7941 

7942 

7943 

7944 

7945 

7946 


IF<TCH6«(I2#IMC4l.l)-VOIO>  /'30|73i»  730 

730  XF (TCHfM (Ilf IMS* D-VOIO)  732,731,732 

732  IF<TCHSN<I2,1HGM*2>-V0ID>  733,731,733 

733  IFfTCHENIIl,IMG,21-V0X0>  2513,731,2513 

731  JCHA-3 
RETUR'I 

2513  TABG»TTS<Ii»i;«G,i>4VRH*ms<I2,IHG*l,t)-TTSUl,lHG,l>> 

2515  TABC»TA3C4VRR*tTTS(Il,IH6,2>*8RM*ITTSCX2,IH64l,2)-TTSm,XMG4l,2) 
i-TABC) 

2503  XF(TSAVE-TABC+.OOOi>  420,420,421 
C  - .  ABLATING  SURFACE 

421  XFIXA3)  422,422,423 

422  CN0L«TLHC<Xl,IHG,l>-VRH*CTL*CIIl,ING,l)«TLMCII2,IHGM,l)) 
CHO«EXP<CMOL) *CH 

I  ABM 

423  CALL  L00K(l4,CHDL,TLttCll, IMG, 11, 0,0, 0,0, 3,0,0) 

IRA»IR(14) 

I1«XRA 

CALL  LOOK(l5,CNOL,TLNC<l,XNGi>i,l)  :3,  0 , 0,0 , 0, 0, 0> 

XRB»IR(15) 

I2«IR8 

CALL  COMP  (TCHCNlXl , 1*6,1) , TCH£fMI2»  XHGfI, 1), VOIO,XFLAG) 
IFflFLAG-l)  740,741,740 
741  JCNA*4 
RETURN 

740  CONTINUE 

744  CALL  LOOK(14,CHOL,TLNC(1,XNG,1)  ,TTS(1,IHG,1)  ,TCHC!m,XHG,l)  ,0,0, 
1Y2I1) , Y2(JI ,2) 

CALL  LC0K<l5,CH0L,TLHC<l,XN6*i,il,TTS(l,IHG*l,l),TCMENtl,IMGM,l> 
10,0«Y2(5) ,Y217) ,2) 

CALL  L00K<14,CH0L, TLNC <1 , IN6,II ,TTS 11, IHG, 2 > , TCMEHll ,IHG, 2» ,8,0, 

1 Y2  (9) ,Y2(11),2) 

CALL  LOOK  <15,CH0L» TLNC  (1,  IRS*  1,2)  ,TTS<1,IHC*1»2)  ,TCH.fH«l,  INGM,2> 
10,I,Y2(13),Y{(15),2) 

00  4232  1*1,8 

4232  Y2m-Y2a>*9RPMYr<X*8l-Y2U)) 

42J3  00  426  1*1,4 

426  Y2<I)*Y21D*  IY2«I46)-Y2*I)  )  *¥RN 
IF (Y21 D )  6268*4260,4261 

6260  ITL-ITS 

GO  TO  6356 

6261  CONTINUE 

CALI  LCOK(4,Y2«ll,TT2tl,2»  ,TEP«1,2)  ,  8 , 8,  8,  C**I  V»D«¥,  1) 

IF  (NATL  U>~2>  428*627,426 

428  CALL  LOOK<3,Y2<l>.m(!,i>,TfPU,l>,e,8,8,V3,Q3,l) 

E*UV=ENI9*0Pl*  «V3«I)-tKIO» 

ONI**0NIV*XPl**03tl»-0NIV) 

42?  TSSO*Y2m*Y2<l> 

T$*Y2(1) 

RIO»SIG*fl»nf*TSSO*TSSO<,»F 
436  CRt*eH*Y2t2)*ENIY*««A-R40-8UI*TS*f»FX 

(CORN*  ANAX1  UiS  <CH*  Y2<2  )  )  ,  185  CE»lY«Q»«»  ,A§S  <8A0)  ,  A8S<»<  1 )  *  TS>  , 

1  »»S<€»F«H 

0€R«*CH*Y2l4l*HaR8-R4e/CNI8)*O)II»-4.FTS»*A0*iCn)*Y2l3> 

IMOCRR)  6365,4365,4362 
4362  IF  (III)  6365,6368*4365 
4368  ITL«ITS 


B36 A  065 
B38A  066 
B36A  067 
B36A  068 
838a  069 
B36A  070 
B38A  071 
) B38A  072 
B38A  073 

B38A  075 
B36A  076 
B38 A  077 
838A  078 
B38A  079 
B3  8A  080 
B38A  081 
B38A  082 
B38 A  083 
83  8  A  086 
B38A  085 

B38A  087 
838A  0t8 
838 A  089 
838 A  090 
BJOA  Q91 
838A  092 
r  838A  093 
B38A  894 
838A  899 
B38A  896 
,  838  A  897 
838A  898 

838 A  899 
B38A  188 
838*  181 
838A  182 
838 A  103 
318 A  184 
838  A  185 
•38 A  186 
836A  187 
838 A  188 
838  A  189 


83 • A  112 
838 A  113 
93 8A  116 
44 8A  115 


»!•*  ’16 
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7947 

GO  TO  4356 

7948 

4365  CONTINUE 

7  "99 

ERRC«ERR/D€RR 

B38A 

117 

7950 

VXTER(IT5)>CNOL 

038A 

118 

7951 

FITERl  ITS)*t'RR 

B38A 

119 

7952 

CNOL«CNOL-ERRC 

838  A 

120 

7951 

c*;ii»-i.e*3o 

838) 

121 

7954 

CKMA*M.C*30 

B38A 

122 

795, 

IF.!IL0I14>-IRA)  4361*4363*4363 

B36A 

123 

7955 

4361  I'(XL0(15>-XR8»  4270,4363,4363 

B38A 

124 

7957 

4270  Cn*Is«NAXl<CHMX,TLNC{XR*,m,XM>mHC<XRA*l,:MC,!RR>,TlHCfXRB 

,  IMG B38A 

125 

7958 

l»iiXRR>9TLHC(IRB-l*XM9nXMn/2. 

839  A 

126 

7959 

CN0L*ANAX1ICN0l,CHNX) 

B38A 

127 

7960 

4363  IF  t|HX  C *4) -IRA -11  4369,4369,4364 

7961 

4364  IF (IHI ( 15J-IR8- 1)  4369,4369,4275 

7962 

4369  IftITS-ITl)  4366,4366,4360 

796? 

4360  IFtEKRS)  420,4367,4367 

7964 

4275  CNNA*AHINi(CNNA,TLNC (XRA^l , tNG,XFR)8TLKC(X AA*2 ,IKG, IPR) , TlffC ( IR8*i 338  A 

130 

7965 

l,I«G*l,IFR»8TL«CC!RB»2,lNC81,IFt»>/2. 

838A 

131 

7966 

CHOL* ANlNt  (CHOL , CMHA ) 

838  A 

132 

7967 

IFlITS-m-1)  4366,4391,4352 

038  A 

133 

7961 

4351  ERRS*ERR 

83  6  A 

134 

7969 

CROL*CHNA 

038  A 

135 

7970 

GO  TO  4270 

7971 

4352  IF  (EfWEPRS)  4354,4367,4353 

038  A 

137 

7  972 

9353  CHOl*CHNA 

838  A 

138 

7973 

GO  TO  4276 

7974 

<*354  ITL*55 

636  A 

140 

,9?S 

IF(CRftC)  4355,4367,4367 

838A 

141 

7976 

4355  CHOL-CHHI 

038  A 

142 

7977 

GO  TO  •*278 

7978 

4366  If  (IT3-ITL)  4367,9356,436) 

B38A 

144 

7979 

4356  CMOi*MIINl(Tl.ltC  <L1 , IRC, IP A) »TLHC<L2,  I8CM, XFR)I 

7980 

4279  CH0L«AHIHlCCH0LtTLNCai,IAC,IFR81)  ,TLHCIL2,1KG41,IPR*1)) 

7981 

4278  ERR*1.C*20 

7982 

4367  CNO«EXP1CHOU,CM 

838  A 

147 

7983 

IF<ITS-5«J»  880,440.998 

838  A 

148 

7984 

480  ITS-ITSM 

038  A 

149 

7985 

IMABS<£*R/£RRH>-.01>  9372 , 9372,423 

7986 

C  -  HON- ABLATING  SU8FACC 

038  A 

151 

7987 

820  T5=T$4 Vf 

938  A 

192 

7988 

iA»*a 

B38A 

153 

7989 

CHO*  0 • 0 

9388 

154 

7998 

8302  IL0(1I>*1 

638  A 

Iff 

7991 

INI (18) *XMI (INC ! 

8384 

156 

7692 

IL0(19)«1 

63  8  A 

157 

7993 

INX(19>-KNI<XNG*U 

938  A 

158 

7994 

430  CONTINUE 

ITS  A 

Iff 

7995 

CALL  L00*tii,T?,TTStA»IN6, 1 > , 0* 8, 8, 8, 8* 6. 0? 

•38  A 

169 

7996 

CALL  LOO«Ul9,f  S.TTSJ  1,I*C»1,1I  ,  0,8,  8, 8, 6,  8 , 8) 

•  36* 

161 

7997 

!RA»It(18) 

838* 

162 

7968 

1 i*IRA 

838  A 

163 

7999 

IM-I«(19» 

8381 

164 

8688 

12* IPi 

538A 

l. 

«Q01 

CALL  C3RP  (TCH£N(I  i,  INC,  l )  ,  TCNfNT  12  ,  1*6*1  ,  1)  ,  VOIC,  XFLAC) 

8812 

If(I*LAG-l)  7 82,781,782 

8388 

167 

8883 

783  JCNA*5 

fit* 

168 

868% 

RETURN 

838A 

169 

2k0 
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8109 

?  92 

CONTINUE 

8386 

170 

8006 

?93 

CALL  LCOK<18,TS,TTS«l,IHC  , 1> ,TCHEN* 1 »IHG  , 1) ,TLHC<1, IHG  ,11, 

800? 

1  0t0,T2Cl>,T2(3),2> 

8008 

CALL  L00K<18,TS,TTSU,  INC*  1,1)  ,TCHCH<1  ,IH5,1 , 1) , TLNCT1 , INGM ,  1>  , 

8009 

1  8,8»Y2<9>,¥2 1?)  ,21 

8010 

CALL  L00K(18,TS,TTSC1,XN6  »2> »TCK£Hlt ,IHG  ,2)  ,TLNCC1,IH6  ,?), 

8011 

4 

L  8»0,Y2(9),T2(il>,2) 

8012 

CALL  LC0X(18»TS#TTS<1* INCH  ,2  > »TCH£N< 1,ING, 1, 21 »TLNC  tl,XHG*l,2> , 

6013 

l  8, 9, ¥2 <131, Y2 (19) *2) 

801% 

00  9321  1-1,8 

8019 

9321 

Y2Ul*f2CI»*¥*PM¥2tI*8l-Y2«)l 

8016 

9322 

00  9323  1-1,9 

881? 

9323 

Y2C»-Y2II)*¥RN*tY2U*4»-Y2IX») 

8828 

933 

CALL  LOOK  U,TS,TT2tl,2>,TEFtl,2) ,8, 0 j 0, EHI V, ONI  V, 1> 

638  A 

101 

8019 

1F(HATL(1)~2)  939,992,939 

B38A 

16? 

8C20 

9  39 

CALL  LOOK  (3,TS,YT2(l,l),TI!Atl,l),0«Q,9,Y3,C3»l) 

638A 

163 

8021 

EHiv»e«mxn*«Y3m-£Hi¥> 

8022 

0NI»-0NIY*XPl*<03t  D-DHIV) 

8023 

992 

TSSC»TS*TS 

838* 

186 

802% 

9922 

AAO«$IG*ENlV»T$SG*T$SQ*VF 

638* 

18? 

8629 

939 

CMr-CH*Y2<ll*£HlV*QR*-AAD-i<t)*TS*CAFX 

636* 

188 

8026 

EARN- AMAX1 UBS <CN-r 2( 1) >  »AB5(ENIV*QAA) ,*BS(A*0) .  A3S (B( 1 1  * T5 ) , 

802? 

1 

L  ABS  <  EAFX) ) 

8028 

0EAR-CM-Y2 (3)  ♦ ( (QAA-RA8/EHI V) -DNIV-4 . /TS-RAO-A ( 1> 1 

8629 

EAAC-CAA/OfAA 

836* 

too 

8030 

VITIA4 ITSl-TS 

638* 

191 

8031 

£IYEAtITS)»£*A 

836* 

192 

8032 

TS-TS-fAAC 

83SA 

143 

8033 

9391 

TSH1—  l.cm 

838* 

199 

803% 

TSNA-*l.f *38 

B36A 

199 

6039 

IF«IL0(18>-IAA)  9909,4981,9981 

836* 

194 

8036 

9508 

IF (IL0( 191 -IA8)  9983,9981,9981 

838* 

167 

683? 

9983 

TSNI-AHAXl (TSHX, TYS(IA8,XR€*i, XRA)  +  TTS  <IAO-l, IHG*1,IRR) , 

638A 

198 

603$ 

1TTS(I*»,IHC,  IAA)  *TTSt  184-1,  INC,  IPADS?. 

836* 

199 

6839 

TS-ANAXKTS,  TSNt) 

838* 

200 

60%0 

9901 

IF  (IN  1(181-1 AA'l)  998?, 9987,9988 

838* 

201 

•  091 

9988 

IFUMIU9»-IA8-1»  9907,998? ,9913 

838* 

202 

8092 

9910 

TSNA«*NIN1<TSKA,TTS<!AB+1, lFC*l,)AN>*TTS(IRi,2,ING»l,IAR> , 

838* 

203 

8093 

l  T  V S C  1*8 ♦  1 ,  IMS ,  I  mi  ♦  T I S  «IR*  ♦  2 , 1 *6 ,  IAA)  )  /2 . 

836* 

289 

809% 

TS-AHfm  1 13,  TSNA) 

836* 

289 

•  891 

998? 

CONTINUE 

838  A 

284 

•  096 

IF  < ITS*90>  991,991,998 

038* 

28? 

6  892 

991 

its-itsm 

838* 

288 

6896 

IF4AAStCAA/EA*N) -.81)  9398,9398,938 

8  899 

998 

UNITE  tKQUT,$29) 

838* 

218 

8898 

WAITE t KOUT, 9*2 >  ( VI T£NU>  ,E  X TEA  (X>  ,1- 1 ,  §1) 

838* 

211 

8691 

WAITE tXOUT, *82)  r*,OTM , YA«  ,fAfX  ,T*AC,tKIV, OAX V, A*8,B<1 ) ,Ctt,PN I , 

83  A* 

212 

**» 

| 

l  OtJ)  ,N(,X*},QA*,Y2tt>  ,Y2(f),Y2M),V2(9) 

•38* 

213 

6833 

TN-TNf IN 

838* 

21% 

8899 

UCN*»8 

938* 

219 

8355 

Af  TURN 

•  39* 

214 

8894 

C 

- - -  N05T  l TEA* TIOW 

036* 

21? 

8892 

9398 

continue 

838* 

218 

8898 

IF(IA«)  9371,9371,9172 

till 

214 

8898 

9371 

CMO*CX1MY2«2>)  -CN 

8860 

Y2<*)*T?U) 

889! 

93?2 

0CWV»CW*Y2T2) 

•  36* 

221 

8842 

IF (kC*M9) )  9376,9379,9374 

m 
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8063 
8034 
CO  65 
8066 

8067 

8068 
8065 

8070 

8071 

8072 

8073 

8074 

8075 

8076 

8077 

8078 

8079 

8080 
8081 
8082 

8083 

8084 
80^5 
8086 

8087 

8088 

8089 

8090 

8091 

8092 

8093 

8094 

8095 

8096 

8097 

8098 

8099 

8100 
8101 
8102 

8103 

8104 

8105 

8106 

8107 

8108 
8109 
6110 
6111 
8112 

8113 

8114 

81 15 

8116 
8117 

*ui 

8119 

8120 


4376  WRITE<K0UT,562)  (VITER ( I) * EITER (I) , I* 1 ,ITS) 

WRITE (KOUT, 582)  TH , DTH , VRM , ERFX ,T ABC ,EMIV ,DMIV,RAD, 3 (1) , CH, PHI , 
1  0(1) ,HE,XPl,QRA,Y2,0ERR,VRP 
4375  CONTINUE 
QCNEHaO. 

0SDT8=CMD/RH0 (2) 

1437  RO  ( 1)  =RON  (1) 

BR=CH/CHZ 

QRPsEHlV'QRA 

QCONO=-O(l)+8!1)*TA(1) 

OCONVT=f4CONVT*  QCONV*OTH/ ARE  A  (i)*ASU 
QCH£MT=GCHEMT+QCHEM*QTH/AREA(1)*ASU 
QCONDTSQCONDT*QCONO*OTH/AREA (1) *ASU 
QRPT=QRPT+QRP*OTH/ AREA (1)*A$U 
RADT=  fAOT*RAO*OTH/AREA(l)*AiU 
C 

OEDT-RON { ll’CP  (lt*(TS-TSAVE)*DEl(i)/DTH 
DO  95  I=2»NL 
RO (I-  =  RON(I) 

TEHP  =  (D  ( I  )  -A  ( I  )*TA(I-1))/B(I  ) 

DEOT=OEDT+RON ( I ) *CP ( I ) * (TEMP-T A ( I) ) *DEL (I ) *RR  (I ) /OTH 

95  TAC)  =  TEHP 

IF  (NUMN-NBM)  97,96,96 

96  K=Nl 

TA(NBM-l)  =  TA(NL) 

00  98  I  r  NBM, NUNN 
<  *  K*1 

98  T  A  (I)  =  (D(K)-A(K)*TA(I-i) )/8<X) 

97  DEDTT»DE0TT+DE0T*0\ H/AREA (1)*ASU 
JCNA=1 

RETURN 

END 

CCOOA 

DIMENSION  FT(2l) 


B38A  222 
B38A  223 
B38 A  224 
B38 A  225 
B38A  226 
B38A  227 
B38A  228 
B38A  229 
B38 A  230 
B38A  231 
B38A  232 
B38A  233 
B38A  234 
B38 A  235 
B38A  236 
B38A  237 
B38A  233 
B38A  239 
B38 A  240 
B38 A  241 
B38A  242 
B38A  243 
B38A  244 
B38A  245 
B38 A  246 
B38 A  247 
B3BA  248 
B38A  249 
CO OA  001 


COMM9N/CAMCOM/TLMC(20, 10,2) »T«G(20) »TTS (20, 10 »2) » TCHEM (20 , 1 0 , 2) ,  COOA  002 
1NLO(20) ,NHI(20)  , KHI ( 20 > , JCNA, IMG ,IMC , NMG,  COOA  003 

2TCHC2) ,TPR(2)  ,TRAO(2) ,IAB  COOA  004 

3,T/2(2o,2),THZ(20,2>  »TTl (3 0) >THG (30) » 0H12 ( 2) , TA ( 39) ,DELHG , 1 1, I2,CHC0 OA  0  (5 
4  , CM0*3PRMG ,KCM  CIO)  COOA  006 

CONNON/BLQCOrj/  MOA(  71),  FOB(  71)  ,NSPEC,  FR(  7i,15>  ,H(3)  ,LEF(  10)  COOA  7 
1,LEFS(10) ,PIEASE,LEFW(10)  COOA  8 

OONHON/FLXCOM/DEt.Qi<»DEUH<  8 ) , OQNL ( 153) , DJNL (153 ,  8),WALL3  COOA  9 

1 ,  NALL J (  8),QW,VJKH(  9),TPWALL  COOA  10 

COMMON/ HISCOM/C l,C2,C3,r*',ALPH0,BFTA,ZM(4,14)  ,ZG(4,14)  ,ZSF«4,14,  8 CO  OA  11 

1  ) ,XI(40> ,HF(15,5) ,HG(15,3) ,HSP(15,3,  8) , HALPH,HUE»HHUE>HFW,DLX2  COOA  12 

2, C3M(40)  ,BETAN(40)  COOA  13 

COMMON/INTCOM/  KR(20>  , KIN, KOUT ,MATlI, NAT2I ,MAT1U,MAT2J ,NET A , I , IS ,NC0 0 A  It 

IS, IT, NTIME»NSP»NSPM1,NAM,NLEQ,NNLEQ,NRNL,  ITS , KAPPA, CB«R, C 1SE ( 15)  COOA  15 

2, B(8),  MWE, NON, KQ(10) , ITEM, NITEN, KR17 ,NBT,N8T2, IDENT , KR9 (40)  COOA  16 

3 ,  KAUXO, JTIHE, JSPEC ,HD ! 3)  COCA  17 

CONHON/PRMCOM/TIME (  50) ,PRE  (40) ,PTET (  50),G£(  50),S(40) ,R0KAP(4C)  COOA  18 

1,RNOSE»VKAP>NDISC,IOISC<40),NSD(10),MSD(10),ITF'  50) ,IPRE,RADNO,  COOA  19 
2CONE,RAOFL(  50) ,RAOR(40),RADS(4O),IRAD  COOA  2U 

COMMON/PRPCON/PR (15) ,T (15) ,RHO ( 15) , SC ( 15) , C APC (15) , QR( 15) , H  ( 15 )  COOA 

1,CPBAR(15),VMW(15) ,PHIK(15,  8) , DRHOH , DRHOK <  8),ZK(  8>,DZKH(  8),  OCHOA  2? 
2MU3K(  8 > , 0MU4K (  8) ,OTK(  8),DPHIKHC  8),DPRK(  8),DSCK(  8),DCAPCK(  8) Cu  A  23 
3 ,OHTILK  (  8) ,DQRK (  8),0CPBK(  8),OCPTK(  8),DMU12K(  8),DZKK(  8,  8)  COOA  24 
4 1 OPHI <K  (  8,  9) ,  0MU4H,0MU3H,DHTILH,VMU12,CT,CTR,CPTIL,HTIL  COOA  2? 
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0121 

0122 

0123 

0124 

0125 

0126 

012? 

0120 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

5137 

0130 

0139 

0140 

0141 

0142 

0143 

0144 

8145 

8146 

8147 

8148 


a  i  ,  unujr,  vn  U«IK  ,  M  1 1 L  >*  ,  C  RiO  ( 14 1  ,  GHR  ( 1 
COMMON/ VARCOM/F (4, 15), G (3, 15) »SP ( 3, 15 ,  9>,ALPH  ’ 

COMMON /NALCOM/FW (4  0,  1),TW(40,  1),HW(40,  1),SPW(  8,40,  1) 

HS P5  ’*'•  11  • ,M"’ : ’ ,F"' nn’  If  lU*  J 

OATA  V0ID/4HV0ID/ 

OATA  SEG1/6HSEG1  / 

OATA  SEG2/6HSEG2  / 

OATA  SEG3/6HSEG3  / 

OATA  SEG4/6HSEG4  / 

7234  FORMAT (1011,315, 35 X, 2011) 

C**N.B.+*ALSO  OEFINEO  IN  INPOUT, INPUT ,CRECT  ANO  RfR  AY 
K I  N=8 
K0UT=5 

REA0(KIN,7234)  KCH, ITEM, IS ,NITEM,KR 
KR (12) =1 
<R(2)  =  2 
KRl7=KR(17) 

C  IF  KCH10)  =  0,  00  NOTHING 

C  IF  KCM(IO)  *  1,  SAVE 

C  IF  KCH (10)  =  2,  RESTART  —  NO  SAVE 

C  IF  KCM(IO)  =  3,  RESTART  —  SAVE 

IF  (KCM(IO))  90,90,93 
90  CONTINUE 
GO  TO  95 
93  REWIND  12 
95  REWIND  13 


RHOP 

COOA 

26 

5) 

COOA 

27 

COOA 

28 

COOA 

29 

COOA 

30 

Co  OA 

r  "* 

COOA 

G24 

COOA 

025 

COOA 

02F 

COOA 

027 

8149 

REWINO  14 

8150 

9 (1)  =  «  5 

0151 

B (2)=. 333333333 

8152 

3(3)=. 166666666 

8153 

B(4)=. 125 

8154 

015)*. 041666666 

8155 

8(6)=. 033333333 

8156 

8(7)=. 013888888 

8l?7 

B(8>=. 003968254 

8158 

IF  (KCM(IO)  -  2) 

0159 

5  RESTART 

8160 

100  NBT=13 

8161 

00  107  IRW=1,2 

3162 

LIM=((IS-IRW*2)/2 

8163 

IF(LIM)  107,107,1 

8164 

109  DO  108  1*1, LIM 

8165 

108  REAO(NBT)  HSTEQV 

8166 

107  NBT*14 

8167 

LIM=((IS-1)*NITEM^ 

8168 

00  103  1=1, LIM 

0169 

103  RE  AO  ( 12)  OUMEGtV 

8170 

CALL  OUMCOM(lOl) 

8171 

CALL  OM2COM(101) 

8172 

GO  TO  147 

8173 

102  NS= 1 

8174 

IT=l 

8175 

105  IS=0 

8176 

MWE=-1 

01 77 

JCMA=1 

6178 

110  IS=IS+1 

CO 04  031 
COCA  032 
CO  OA  033 
CO OA  034 
COO A  035 
CO  OA  036 
COOA  037 
COOA  038 


COOA  041 
COOA  042 
COOA  043 
COOA  044 
COOA  045 
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8179 

8180 
8181 
8182 

8183 

8184 

8185 

8186 

8187 

8188 

8189 

8190 

8191 

8192 

8193 
6194 

8195 

8196 

8197 

8198 

8199 

8200 
8201 
8202 

8203 

8204 

8205 
6206 

8207 

8208 

8209 

8210 
8211 
8212 

8213 

8214 

8215 

8216 
8217 
8213 

8219 

8220 
8221 
8222 

8223 

8224 

8225 

8226 

8227 

8228 

8229 

8230 

8231 

8232 

8233 

8234 

8235 

8236 


IF  (IS-NS)  115,115,105 
115  CONTINUE 
C  CALL  L0A0CSEG3) 

CALL  INPOUT 
ITEM=1 

120  JsMOO(ITE),2>«-l 
DO  129  IMG=1,NMG 
LIMC=NHI(IMG) 

DO  129  IMC=1,LIMC 

129  TCHEM ( IHC ,IMG, J) =VOIO 

C  CALL  LOAD  (SEG4) 

C  REWIND  10 

CALL  SETUP 
TPR (J) = TIME (ITEM) 

TCH(J)»-1./C3N(IS) 

TRAD( J)aRADS(IS) 

IF  ( ITEM-1)  128,128,130 
128  TPR  (1) =  TIME (NITEM) 

130  CONTINUE 

C  CALL  lOAO(SEGl) 

CALL  (HA 

C  CALL  IOAOISEG2) 

KR  (11  )=3+lAB 
LIH=8 

IF ( JCMA-3)  140,150,160 

140  IF ( JCM A)  141,141,142 

141  WRITE (NBT)  KCM 
STOP 

142  FLUXJ (1,IS,IT)=0. 

FLUXJ(2,IS,IT) =-8PRMG 

FLUXJ(3,IS,IT)=-CMD/CH 

TW(IS,IT5=TA(i> 

KR(11)»3 

CALL  BLIMP 

145  IF  (I ABS  (KCM(1 0 • ~2) -1)  147,146,147 

146  CALL  DUNC0M(102) 

CALL  DM2C0M(102> 

147  ITEM  =  ITEH+1 
IF(JCMA-l)  110,110,120 

15Q  LIM=4 

KR  (1U  =4 
160  11=11 
C  REWIND  10 

J=MOD ( ITEM ,2)  ♦ 1 
DO  280  K=1,LIM 

IF (TCHEM (II, IMG, J)-VOIOI  209,170,209 
170  FLUXJ(1,IS,IT)»0. 

FLUXJ ( 2, IS,IT)  =-TMG (IMG! 

IF (JCM A-4)  180,180,190 
180  FLUXJ (3, IS, IT)  =-EXP(TLMC(II,IMG,J)l 
GO  TO  200 

190  FLUXJ(3,IS,IT)=0. 

TW(IS,1)*TTS(II , IMG, J) 

200  CALL  BLIMP 

CALL  LO0K(2,T(l) ,TTl,TMG, 0  ,0,0,HGA,CT 1,1) 
HGA=HGA*DELHG 

CALL  LOOK (4,T ( 1) ,TT2 (1,2) ,THZ(1,2) ,0,0,0, HCH,CT2,1) 
HCH=HCH+DH12(2) 


CO 0A  047 
CO 0 A  048 
CO 0 A  049 
CO  QA  050 
CO  OA  051 
CO  OA  052 
CO  OA  053 
COO  A  054 
CO  U A  055 
CO  OA  056 
CO 0 A  057 
COOA  058 
CO  OA  059 

COOA  061 
COOA  062 

COOA  063 
COOA  064 
COOA  065 
COOA  066 
COOA  067 
COOA  068 
COOA  069 
COOA  070 
COOA  071 


COOA  075 
COOA  076 


COOA  078 
COOA  079 
COOA  080 
COOA  081 
COOA  062 
COOA  0  83 
COOA  084 
COOA  085 


COOA  088 

COOA  090 

COOA  092 
COOA  093 
COOA  094 
COOA  095 
COOA  096 
COOA  097 
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8237 

8238 

8239 

8240 

8241 

8242 

8243 

8244 

8245 

8246 

8247 

8248 

8249 

8250 

8251 

8252 

8253 

8254 

8255 

8256 

8257 

8258 

8259 

8260 
8261 
8262 

8263 

8264 

8265 

8266 

8267 

8268 

8269 

8270 
6271 

8272 

8273 

8274 

8275 

8276 

8277 

8278 

8279 
8230 
8281 
6282 

8283 

8284 

8285 

8286 

8287 

8288 

8289 

8290 

8291 

8292 

8293 

8294 


IF  (JCMA.GT.4)  TLMCCXX,  IMG,  J> * ALOG (AMAX 1 (-H < 3)  ,0.  00001) ) 
TCHEM<II,IHG,J>=(H<2)+H(3))*HIP*i.8+HALLQ-W<2)+HGA-W<3>*HCH 

tts<ii,img,j)=t(i>  COOA 

209  GO  TO  <210, 220,260,250,210, 230,260,250), K  COOA 

210  ITEH«ITEM-1  COOA 

GO  TO  270  COOA 

220  11*12  COOA 

GO  TO  240  COOA 

230  11*12+1  COOA 

240  IMG=IMG+1  COOA 

GO  TO  280  COOA 

250  IMG=IHG-1  COOA 

11*11+1  COOA 

GO  TG  280  COOA 

260  ITEH=ITEM+1  COOA 

270  J*3-J  COOA 

280  CONTINUE  COOA 

GO  TO  130  COOA 

END  COOA 

CC01B  CO  IB 

SUBROUTINE  DM2C0MIICK)  C01B 

COMMON/CAMCOM/TLMC <20,10,21 , TNG (2 01 ,TTS(20,10,2) ,TCHEH<20, 10,2) ,  C01B 
1NLO<20>,NHI<20) ,KHI<20) , JCMA,IHG,IMC,NMG,  C01B 

2TCH(2) , TPR<2) »TRAD (2) , XA8  C01B 

3, TT2<20,2),THZ(20,2),TT1*30),THG(30) , DH12I2) , TA C39) ,DELHG, II, I2,CHC01B 

4, CMD,BPRMG,KCH (10)  C01B 

EQUIVALENCE  (NCLASS, JCMA)  C01B 

COMMON /LOO COM/ KOUT ,IEX,0EN,VR,IHI(23) ,ILO<23) ,IR<23)  COlB 

COMMON/CMACOM/TEP(20,2» ,  TCP120,  2),TKP(20,  2)  CG1B 

3 ,RH0(2) ,NATL<38),OEL(39)»SC(20>»H(38>»9C<36),PA( 38) , RECORD ( 36) ,  CO  IB 

4AREA(38),EMA(38) ,RAV(38I,  COlB 

5R0A(152) , ROB (152) , ROC (152) ,  COlB 

6  TPI 130) ,VFZ,CMH,NPR,  COlB 

7LCT ,NPG, II,NBM,NUMN,NL ,  OELM,RFT ,RHORA»RHORB,RHORC,  TRA  COlB 

8CA ,TRACB ,TRACC , RHOOA,RHOOB ,RHOOC,EA,EB,EC, BA ,BB, BC,PSI A,PSIB,PSIC, COlB 
9TR ACM, PET, PETE, RSV, ETA, 0TPR3,0TPR2,0TPRT,TPR3,TPR2,THZR0,THFIN,HT  COlB 
COMMON/ CM ACOM/EPSH,TRES»  COlB 

1TNMT, G AMA, OMG, NO, FJFH,FJFS,JF,JFHP,JFH, INPUT,  DTHIN, 8RP, HCONV, COlB 

2INCH,OTHB,NN,NI,NOI ,CHCRI , PYCRI, NCON,  NR,TX(30) ,F1(30) ,F2(30>  COlB 
COMMON/SBCP/BF,CMMA,CMHI,OERR,ONIV,ENIV,ERFX,ERRC,ERR,ERRS,I3»I4,  COlB 
1 VRM.VRP,  IPR,  IRA, IRB, IRC, IR0,ITL, PHI, QQ,TA3C, TEMP, TSMA,TSMI,TSSQ  COlB 
COMMON/SBCP/  TNXT,  ONCP( 3) ,CPE (3) , TO (20) , VITER<51) ,EITER (51)  COlB 
COMHON/SBCP/  Y2<16) ,02(16) ,Y3(8), 03(8) ,Y1(2) ,01(2)  COlB 

COMMON/SBCP/  CPC(  50) , CPV <  50),CP(  50),HP  (  50),HCC  50),CN(  50),  COlB 

1RAT (  50) ,ROT(  50),RC(  50), X<  50),ROM(  5Q),0M0G(  50) ,RR  (  50),  COlB 
2CNCC  50), A(  50), B(  50) ,C(  50), 0<  50),EMO(  50) ,CNO(  50  COlB 

COMMON /SBCP/BR,  CHZ,  CMOL,  OEOT,OEOTT,DSOTB,OTH,GSMS,HH,  COlB 
1HE,  ITS, PRES, QCHEM, QCHEMT , QCONO, QCONOT , OCONV , QCONVT , QR A ,QRP ,  COlB 

2QRPT,RA0,RA0T,RSU,SIG,  TSAV£,VF,XP1 , ASU  COlB 

COMHON/NISC/  BPRN,RMT, COLO, CPI, CP6AS, CFNL ,CZ,OCOT,OECOM,  COlB 

idecomt,oelcr,oelr,oemolo,oii:t,ons,opot,orlcp,orlc,orlp,orl,droac,  COlB 


2 CROAT, OROBC,DR03T,OROCC,OROCT , OROOTO,OSOT, OSI,OS,OSS,DTA,OTHC,DTMSCOlB 
3,DTS,DVB,0Z,EG0,EZ,FACT1,FICT2,FA,F8,FC,FJF,FK,FZ,GSEGR,CSM,GSMT,  COlB 
4GZ, HI , HAPH8,HBAR,H6AS , HRES ,IE,IMIN,I,IS,ISV, ITER, Jl, J,  KK, K, KT , L,  COlB 

5nor,nli,mlm,n,nz,o,pgpu,pgput,polo,pon,oloss,qlosst,rd,roi,rooz,sacoib 
6,SOEGR,TAS,TB,TERMl,TERM2,TERM3,TMOS,TM,THPRT,TN,TOPl,TOP2tTOP3,T,C018 
7TT, VOL , XI  COlB 
EQUIVALENCE  (0H1,0H12(1)), (0H2,0H12(2) ) ,(TS,TA)  COlB 


099 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 
001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
Oil 
012 
013 
014 
015 
016 
0  17 
018 
019 
020 
021 
022 
023 
024 
025 
026 
027 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 


215 


* 

AFWL-TR-69-114,  Vol  I  (Supp.) 

1 

0295 

(DIMENSION  CftMEQV  (1478)  ,LOOEQV<  73) ,  CMAEQV  ( 1 1251 ,  SBCEQV  ( 12  37  > , 

8296 

1  MISEQV (101) 

8297 

EQUIVALENCE  (CAMEQVf TLHC) ,< LCOEQV,KOUT> , (CMAEQV, TEP) , 

8298 

1  (SBCEQV, 8F),CMISEQV,BPRM) 

8299 

IF  (ICK  -  101)  40,10,20 

8300 

10  RE AO  (  12  )  CAMEQV ,  LOOEQV,  CMAEQV,  SBCEQV,  MISEQV 

8301 

GO  TO  40 

■ 

8302 

20  WRITE <  12  )  CAMEQV,  LOOEQV,  CMAEQV,  SBCEQV,  MISEGV 

I 

8303 

40  RETURN 

m 

8304 

END 

C01B 

041 

i 

m 

8305 

CC02A 

C02A 

001 

IE 

8306 

SUBROUTINE  BLIMP 

C02A 

002 

8307 

DIMENSION  HIST 1  (605) ,HIST2<607)  ,HIST3 (511) , VMAT  (566) ,HIST4 <600) 

C02A 

003 

83P8 

COMMON/8LQCOM/  MOA <  71),  MOB<  71) ,NSPEC,FR(  71, 15) ,W (3) , LEF ( 10) 

C02A 

4 

8309 

1 , LEFS (10) ,PIEAS£,LEFW(10) 

C02A 

5 

8310 

COMMON/ EOGCOH/  PE(40,  1),PTE(40,  1>,SPE<  8,40,  l),OUES 

,  C  02A 

6 

8311 

1UE (40) , RHOE(40 ) ,VNUE(40),TE(40),UEOGE, DUEOG  E , 32UEDG,VMWE, HE , C9  0 

C02A 

7 

1 

m 

8312 

2  , OSIP (40) ,IOSIP,TTVC, TVCC (40) 

C02  A 

8 

8313 

COMHON/FLPCOM/TXI <2 ) ,TUE<2) ,TRMOE(2> ,TTE<2) ,TVMUE(2) ,TMAT<566,2) 

C02A 

9 

i 

■ 

8314 

2 , THF (15,2) ,LEFT(10,2),TPE(2),TRACS(2) ,T0SIP(2) ,KQT(2> 

C02A 

10 

m 

8315 

C0MM0N/HISC0M/C1,C2,C3,C4,ALPH0,BETA,ZM(4,14) ,2G(4,14)  ,ZSP<4,14, 

8C02A 

11 

( 

t 

3316 

1  ) ,XI(40),HF(15,5),HG(15,3),HSP(15,3,  8) ,HALPH,HUE,HHUE,HFW,DLX2 

C02A 

12 

1 

8317 

2,C3M(40) , BET AM (40) 

C02A 

13 

i 

8318 

COMMON/INTCOM/  KR(20> ,XIN,KCUT , MAT  11, MAT 21 , MAT1 J,MAT2J,NE TA , I , IS, 

NC02A 

14 

8319 

1S,IT,NTIME,NSP,NSPM1,NAM,NLEQ,NNLEQ,NRNL,  ITS , KAPPA, CB AR, CASE ( 15) 

C02  A 

15 

i 

8320 

2,3(8) ,  MWE , NON ,KQ ( 10) , ITEM.NITEM, KR17 , NBT.NBT2, IDENT , KR9 (40) 

C02A 

16 

| 

8321 

3, KAUXO, JTIME, JSPEC,MD(3) 

C02A 

17 

•  i 

- 

8322 

COMMON/PRMCOM/TIME<  50) ,PRE(40),PTET<  50),GE(  50 ) , S (40 ) , ROK AP (40) 

C02A 

18 

I 

8323 

1 ,RNOSE , VKAP,NOISC, IDISCC40 ) ,NSO(10) ,MSO(10> ,ITF(  50) ,IPRE,RADNO, 

C02A 

19 

! 

8324 

2CONE, RAOFL (  50) ,RAOR 1401 ,RA0S  (40) ,IRAD 

C02A 

20 

i 

8325 

COMMON/VARCOM/F (4, 15) , G <3, 15) , SP (3, 15 ,  9) , ALPH 

C02A 

21 

6326 

COMMON/WALCOM/FW (40,  1),TW(40,  1),HW<40,  1),SPW(  8,40,  1) 

C02A 

22 

8327 

1 , RHOVW (40 ,  1) , FLUX J (  3,40,  1) , IHW,ITW , IFW, ISPW ,IRHOVW, IFLUX J 

C02A 

23 

8328 

EQUIVALENCE (HI ST  1, XI) , (HIST 2,  PE)*(HIST3,F), (VMAT, Cl),  (HIST4,FW> 

C02A 

008 

8329 

3  FORMAT (/1H17X4HTINEE12.5, 35H  SECONOS  -  -  -  STREAMWISE  DIMENS ICNE12CQ2A 

023 

I 

8330 

1.5, 11H  FEET - 3A6) 

8331 

CALL  DATE  (9, HO ) 

| 

8332 

CALL  T00(18,M0) 

8333 

WRITE ( KOUT , 3)  TIME (ITEM) ,S (IS) ,MD 

8  334 

140  J*HOO  ( ITEM, 2)  >-1 

C02A 

027 

8335 

DO  142  1*1 , NET  A 

C02A 

028 

8336 

142  HF(I,5)»THF(I. J! 

C02A 

029 

8337 

XI  (IS)*TXI(J) 

C02A 

030 

1 

8338 

RADS(IS)=TRAOS(J) 

8339 

DSIP(IS)*TOSIP(J) 

8340 

UE  (IS)*TUE<J) 

C02A 

031 

8341 

RHOE (IS)=TRHOE ( J) 

C02A 

032 

8342 

TE (IS) *TTE (J) 

C02A 

033 

j 

8343 

VMUE ( IS)*TVMUE ( J) 

C02  A 

034 

6344 

KQ(  10)  *KQT  <J) 

8  345 

OO  141  1*1,566 

C02A 

035 

8  346 

141  VMAT  < I)=*TNAT ( I ,  J) 

C02A 

036 

8347 

PTE(IS,1)*PTET(ITEM) 

C02A 

037 

- 

8348 

PE(IS,1)=TP€(J) 

C02A 

038 

8349 

0UM1* ( GE  (ITEM) -G(l,l))/(Gtl,NETA)»G(l,l)) 

C02A 

039 

8350 

00  113  I*)  .NET  A 

CCi  2A 

040 

8351 

G<3,I)*G(3,I),0UM1 

C02A 

041 

- 

8352 

G(2,I)*G(2,I)  •OUH.l 

C02A 

042 
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8353 

113  G(l,I>«Gfl,l)+OUMl*fGCl,I}-G(l,l>> 

C02A 

043 

8354 

ITS*0 

C02A 

044 

8355 

KR  il7) *KR17 

C02A 

045 

8356 

43  CALL  ITERAT 

C02A 

046 

8357 

CALL  OUTPUT 

C02A 

047 

8358 

IF  <NON)  43,40.41 

8359 

41  STOP  5050 

8360 

40  RETURN 

C02A 

04? 

8361 

ENO 

C02A 

050 
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SECTION  IV 
CHECK  CASES 

Two  check  cases  were  run  on  the  AFWL  CDC  6600  conputer  using  the 
modified  BLIMP  code  with  the  entropy  layer  swallowing  option.  Check 
Case  I  was  a  rocket  sled  boundary  layer  which  simulates  a  reentry  plasma. 
Edge  conditions  for  this  case  have  in  the  past  been  difficult  to  obtain 
using  mass  balancing  techniques  external  to  BLIMP.  Check  Case  II  was  the 
boundary  layer  on  a  typical  reentry  vehicle. 

Definition,  input,  and  output  of  Case  I  and  of  Case  II  follow. 

The  complete  output  is  not  included  due  to  its  large  volume.  Only  the  first 
and  last  points  of  the  boundary  layer  adge  and  shock  thermodynamic  state 
output  are  presented.  The  boundary  layer  solutions  for  the  stagnation  point 
and  for  one  station  on  the  after  body  are  presented  for  each  case. 

1.  CHECK  CASE  1  -  SPHERE-CONE  ON  ROCKET  SLED 

a.  Vehicle  Configuration 

1)  Geometry:  Sphere-cone 

a)  Nose  Radius:  1/2-inch 

b)  Cone  half  angle:  9  degrees 

c)  Length  (streamwise) :  1.9639  feet 

2)  Heatshield: 

a)  Location:  Between  streamwise  distances  of  .10686 

feet  and  1.S520  feet. 

b)  Material:  Avcoat  3024  (epoxy  urethane) 

°113  N35 

c)  From  0  to  .10686  feet  (streamwise)  and  from  1.5520 
to  1.9639  the  cone  is  considered  nonablating. 

d)  Contamination:  Heatshield  contains  20  pet  by  weight 

CsNOj. 

b.  Wall  Boundary  Conditions 

1)  Mans  Ablation  Rate:  See  Case  I  input  cards. 

2)  Wall  Temperature:  See  Case  I  input  cards. 
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c.  Free  Stream  Properties 

1)  Altitude:  4,000  feet 

2)  Velocity:  8,000  feet/second 

3)  Density:  .06792  lb/ft3 

4)  Enthalpy:  120.435  Btu/lb  (ref.  to  0°K) . 

(static,  -7.761  Btu/lb,  ref.  to  298*K) 

5)  Pressure:  0.86384  atm 

6)  Mach  No.:  7.2661 

d.  Shock  Data 

1)  Local  Pressure  Ratio:  See  Case  I  input  cards 

2)  Stagnation  Conditions  (from  inviscid  flow  solution) 

a)  Pressure:  59.114  atm 

b)  Enthalpy:  1270.5  Btu./li>  (ref.  to  298‘K) 

3)  Froestream  stream  function  position  vs.  shock  angle 
See  Case  1  input  cards 

e  input  cards 
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lU2O30?J2wC?O..0C  1  CHECK  CASE  1  -  ROOD  FPS  ROCKET  SLED 

blank  card 

e 

* 

i 

i. 


• 

.  0  C  4 

.  C  v  fi 

.  j12 

.017 

.027 

,033 

.04* 

0*p3ie; 

.:.67 

.030 

.09 

-.1065 

-.10686 

.19206 

.2764? 

3  6  0  B  7 

.  A  4  *3  P 

.6139? 

.7*267 

.95141 

1  .2045 

1.400 

-1.552 

l.ISjn 

1  .6  774* 

1.6961 

1.76775 

1.33930 

1.76390 

* 

• 

.002 

.004 

•  0C7 

.012 

.0? 

.03 

.05 

1 

.  2 

.7* 

.5 

l.C 

1  .6 

2.5 

13  .'** 

9.9  .24 3 66*67 

-."4 1448  47 

.0411*6 

blank  card 

•33916 

59.114 

1270.* 

0.44  11. *2*  G.ulR  0.<*  C.°  300. 

1610. 

6 

1HYDR  On"f'i  1.00?  755.003 

6  CARROV  12,311  4*0.610 

7KTT'*0'--  +  r'  1 4 ,  C  0 a  -.76*  3  0. 077 

8  OXYGr"  16.000  -.22*  120.538 

*5  CESIUM  137.71  10.261 

OOrL'-rTOO'!  0. COOS'5 

1  **  JANAF  06/63  AfWL  -  oEF  CS 


1.33177+5 

140429+7 

*38117+1 

-9*3465-3  36*865+6  536529+2 

500 

30001 

OCS 

133197+5 

’.'•0-79+3 

-1  774*3  +  2 

621367-2  483422+3  536529+2 

3000 

60001 

OCS 

?  1  C 

0  0  0 

0 

JANAF  03/61 

H2 

- 

21 210C+" 

711763+1 

67193  0-3-71 2694+6  4 84  4 * 0+2 

500. 

3CC0.1 

0.H2 

- 

212103+5 

651794+1 

5895*4-3  26*106+7  4S46*0+2 

3  0  C  0 . 

5000. 1 

0.  M2 

1  6  1 

*  c  :• 

0  9  3 

JANAF  03/61 

cc 

264173+5 

7?*P,70  +  r 

"6*040+1 

117021-3-393211+6  653700+2 

50C. 

3000.1 

o.co 

264179+5 

?  "7", 70  +  3 

i  1  c496+2 

-424 139-3-1 31*63+3  653700+2 

3000. 

5000.1 

o.co 

1  6  2 

e  3  0 

0  C  0 

0  JANAF  03/61 

C02 

940349+0 

3  *5750+3 

1  44* 59  + * 

2 1036 6-. 3 -182392+7  793480+2 

500. 

3000.1 

0.CO2 

740540+* 

7  6*350  +  5 

1 "  64  c  1+2' 

-331*61-4-602765+7  793480+2 

3000. 

50C0. 1 

0.CO2 

7  7  C 

3  0  0 

o 

A5RCTT  LOW  TEMP 

N2 

0+0 

2*1718+5 

*..7736 

.00308  66552  +2 

500.  1 

-ON  2 

'-+: 

221647+* 

70*377+1 

319649-2-3 14775+6  637650+2 

3000.  1 

N2 

1  no 

JANAF  05/6* 

AFWL  -  JEF 

E- 

~N 

1*4230+5 

4*' 330+1 

215*33-5  26284C-6  164590+2 

500 

30001 

L-  _ 

,*■ 

1*4230+5 

4  9  6  8  C  C  + 1  ■ 

-232?. *3-6-986224-6  164590+2 

3000 

50301 

i- 

1  6  3 

"  0  c 

0 

JANAF  03/61 

c 

1708*6+6 

1 *5500+5 

4  44432+1 

226125-3  409330+6  492370+2 

500. 

3000.1 

o.c 

1703*6+6 

1*5500+5 

412212+1 

261908-3  262086+7  492070+2 

3000. 

5000.1 

o.c 

1  1  w 

0  0  0 

0 

JANAF  12/60 

H 

521020+5 

I  *4  220-1  * 

4.30223  +  1 

*55.69-4  173095+6  388620+2 

5  CO. 

3000.1 

O.H 

5210,7  +5 

1*4230+5 

3087*7+1 
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0.  0*  0,  0*  0*  0* 
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(and  of  file  card) 


i.  Coaputer  output 

The  firat  and  last  points  of  the  boundary  layer  edge  and 
shock  thermodynamic  state  output  are  presented.  The  boundary  layer 
solutions  for  the  stagnation  point  and  for  one  station  on  the 
afterbody  are  also  included. 
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80 UNOARY  LAYER  INTEGRAL  MATRIX  PROGRAM  (BLIMP) 
AEROTHERM  CORPORATION. PALO  ALTO, CALIF  (RMKjEPB) 

CASE  CHECK  CASE  1  -  6000  FPS  ROCKET  SLEO 
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2.  CHECK  CASE  2  -  CONVENTIONAL  REENTRY  VEHICLE  ANALYSIS 
*  a.  Vehicle  Configuration 

1)  Geometry:  Sphere -cone 

a)  Nose  Radius:  1/2-inch 

b)  Cone  half  angle:  8  degrees 

c)  Length  (streamwise) :  7.0922  feet 

2)  Heatshield 

a)  ATJ  graphite  from  nose  tip  to  ,864  feet  streamwise 
distance 

b)  Phenolic  carbon  (composition  as  specified  in  NASA 
CR-72301,  Aerotherm  Report  N<_.  67-15)  between  streamwise 
distances  of  .865  feet  and  7.0922  feet 

c)  Contamination:  100  PPM  by  weight  sodium  Na  in 

graphite  and  phenolic  carbon 

b.  Wall  Boundary  Conditions 

1)  Mass  Ablation  Rate:  See  Case  II  input  cards 
.  2)  Wall  Temperature:  See  Case  II  input  cards 

c.  Free.  Stream  Properties 

1)  Altitude:  10,000  feet 

2)  Velocity:  14,000  feet/second 

3)  Density:  .05648  lb/ft ^ 

4)  Enthalpy:  115.364  Btu/lb  (ref.  to  0°K) 

(static,  -12.832  Btu/lb,  ref.  to  298°K) 

5)  Pressure:  .6880  atm 


6)  Mach  No. :  12.994 


AFWL-TR- 69-114,  Vol  I  (Supp.) 


d.  Shock  Data 

1)  Local  Pressure  Ratio:  See  Case  II  input  cards 

2)  Stagnation  Conditions  (from  inviscid  flow  solution) : 

a)  Pressure:  149.91  atm 

b)  Enthalpy:  3903.3  Btu/lb  (ref.  to  298°K) 

3)  Freestream  stream  function  position  vs.  shock  angle: 
See  Case  II  input  cards 

e .  Input  Cards 
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10203320213202  CHECK  CASE  2  -  REENTRY  VEHICLE 

blank  card 

5  1111111111  llinil  111  1122???-,222??2'2.-’?'' 

1 


1. 

39 

0. 

.004 

.008 

.013 

.017 

.02* 

.035 

.045 

.055 

.059632 

.063 

.060 

.075 

.036 

.098 

.120 

.150 

.21 

.31 

.4417 

.60 

-.*64 

-.365 

1.0 

1.286  1 

1.50 

1  .7065 

2.1272 

2.548 

2.9687 

3.3895 

3  i  ?  1 0  ’ 

4.231 

5.0725 

1.9141 

6.75 

6.80 

6.9239 

7.0922 

15 

9. 

.002 

.004 

.007 

.012 

.020 

.030 

.050 

•  10 

.2 

.35 

.5 

1.0 

1.6 

2.5 

13  .96 

8.0 

-.04166667 

.04166667 

.04126 

2  blank  cards 

149.91 

3903.3 


1.02 


'.44  11 

000. 

6 

.823  .018 

.9 

.9 

300. 

1 hydrogen 

1.008 

-.0209+6 

6  Carson 

12.011 

-1. 

+6  -.9236+6 

7NI TROGEN 

14.008 

-.765 

8  OXYGEN 

16.000 

-.235 

-.0554+6 

11  50DIUM 

22.991 

-1. 

-1. 

99FLFCTRON 

0.00055 

1001  JANAF  12/60  H 


521020+5  1  "’4230+5  480223+1  555469-4  173095+6  335620+2  500.  3000.1  0.H 

521020+5  1  "’4230+5  308752+1  315025-3  929744+7  338620+2  3000.  5000.1  C.H 

1006  JANAF  03/61  C 

170686+6  1  "’5500+5  444433  +  1  228125-3  409830+6  492B70+2  500.  3000.1  O.C 

170886+6  l’55C0+5  412212+1  261908-3  262836+7  49?470+2  3000.  5000.1  O.C 

1  11  0  0  0  0  0  JANAF  06/62  AFWL  -  W.7S  NA 

257350+5  1  ’’4670  +  5  481002+1  916143-4  372315  +  5  4*2000+2  '’•00  3C001  NA 

257350+5  1  ■’4670+5-122936  +  2  344219-2  634141  +  8  482000+2  3000  60001  NA 

2008  JANA*  03/61  02 

-  2  ’4460+5  804370+1  510372-3-152713  +  6  679730+2  500.  3000.1  C.02 

-  234460+5  1 C 307 1  +  2  290  991-4-7  8  30  79  +  7  679730+2  3000.  5C00.1  9.02 

2007  JANAF  03/61  N2 

-  221650+5  862699+1  1 16090-3-1 037 1 5 637650+2  50C.  30C0.1  0.N2 

-  221650+5  984175+1-116 2 32-3-61?72Q+7  637650+2  3000.  5000.1  9.N? 

01001  01  06  JANAF  03/61  Cm 

142006+6  221300+5  826079+1  302211-3-100184+7  616120+2  5U0.  3000.1  O.CH 

142006+6  221300+5  707091+1  463281-3  552860^7  616120+2  3000.  *000.1  O.CH 

1001  Cl  06  01  07  JANAF  03/61  Cm'. 

312000+5  355930+5  137023  +  2  45;?/, -5-3-223755  +  7  753620  +  2  500.  3000.1  O.CH.’: 

3120OO+5  355930+5  173395+2-295052-3-163671+3  756620+2  3000.  5000.1  O.CH'! 

1001  01  06  01  07  01  oe  JANAF  12/60  CM\0 
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-2790C0+* 

461930+5 

1797C1+2 

469024-3-200904+7  9?8<>°0+? 

500. 

3000.1 

’ . CHN9 

-2  7900.1+5 

461930+5 

2P 167+2 

-229915-3-105569+3  <»28n90 +2 

3000. 

500”'.  1 

C.CHN9 

IC01  01 

06  Cl  09 

JANAF  03/61 

CMC 

-2yuL0G+4 

323670+5 

128033+2 

300633-3-201721+7  769330+2 

500. 

3000.1 

O.CMO 

-29GJ3C+4 

323670+5 

1«? 023+2 

633312-3  121615+3  799330+2 

3000. 

5000.  1 

O.CHC 

2001  01 

06 

JANAF  12/62 

CH2 

95C3C0+5 

329960+5 

132894+2 

413322-3-290273+7  684940+2 

500. 

3009.1 

O.CH2 

9500.;  3+5 

329960+5 

140773+2 

132150-3-239403+7  634'»40+2 

3000. 

5000.1 

0.CH2 

2CC 1  Jl 

04  01  08 

JANAF  03/61 

chco 

-2 77400+5 

4=7910+5 

l?40?2+2 

379921-3-431982+7  848830+2 

300. 

3000.1 

9,Ch20 

-277wOC+5 

437910+5 

155623+2 

161963-3-372770+7  343880+2 

3000. 

5000.  1 

0.CH23 

40C1  01 

06 

JANAF  03/61 

CM4 

-176950+5 

•j  ’0790+5 

230943+2 

677896-3-755061+7  325970+2 

500. 

3000.1 

0.CH4 

-l7d95C+5 

S'0790+5 

236053+2 

374222-3-368234+7  325970+2 

3000. 

5003.1 

0.CH4 

1006  01 

07 

JANAF  12/62 

CM 

109300+6 

2  ’2490+5 

655906+1 

115326-2  479517+6  66n?60+2 

500. 

300C.1 

O.CN 

IG90C0+6 

2  ’2490+5 

98PC13+1 

31  3650-3-649453  +  7  669760+2 

3000. 

5000. 1 

9.  CM 

1  6  1 

7  1  11 

0  0  0 

00*0  0 JANAF  03/66 

AFWL  -  ’.i 

r.S  CNN  A 

225300+5 

33010O+5 

1  3!,804+2 

33 1050- 3-3 81026+6  394600+2 

500 

3000 1 

CNNA 

225300+5 

380100+5 

143651+2 

778244-4  167243+7  3V4600+2 

3000 

DC001 

CNN*. 

1  o  ^.  £>  1 

08 

JANAF  03/61 

CC 

-264170+5 

223570+5 

065040+1 

117021-3 -8 98 ’11+6  6537C0+2 

500. 

3000.1 

o.r; 

-264170+5 

223570+5 

1154  96+2- 

-424139-3-1 31*63+9  653700+2 

3000. 

5090.1 

D.CC 

1006  02 

08 

JANAF  03/61 

CO  2 

-94C54C+5 

36535C+5 

144559+2 

2  10 386-3-1 02’92+7  793480+2 

500. 

3000.1 

3 .  C  o  2 

-940540+5 

265350+5 

1 56451+2- 

-381561-4-602763+’  798450+2 

3000. 

5030.1 

0.CO2 

002006 

JANAF  9/61 

'■  *> 

V  .L 

198999+6 

246990+5 

776612+1 

696081-3  185649+6  685519+2 

500. 

3000.1 

3.C2 

198999+6 

246  9vO  +  5 

U4162  +  2 

566841-4-640205+7  685519+2 

3000. 

5000.1 

3.C2 

10  1  2 

6 

DUFF  OAUFR  6/61 

C2H 

117395+6 

349620+5 

1-4210+2 

469100-3-187509+7  781140+2 

500. 

3C00.1 

0.C2N 

117395+0 

349620+; 

14’5 16+2 

1C9402-3-5 03262+7  781140+2 

3000. 

5C00  •  1 

0  .  C  2  •’  1 

2001  0? 

06 

JANAF  03/61 

C2H? 

541 90C+5 

482570+5 

lC<’960  +  2 

769044-3-4 09039+7  849690+2 

500. 

3000.1 

O.C2h2 

541910+5 

4=2:70+5 

203952+2 

229062-3-0452? 7+7  349690+2 

3000. 

5C00.1 

O.C2H2 

4001  02 

06 

JANAF  12/60 

CCM4 

12* 960+5 

676330+5 

29 4887+0 

526563-3-365213+7  101790+3 

500. 

3C00.1 

0.C2H4 

124960+5 

6  76330  +  5 

313872+2 

616738-4-13105S+?  101790+3 

300C . 

5000.1 

C.C2F4 

-  . 2^6002 

-07 

JANAF  3/61 

C  2  N  7 

<30639+5 

j  1  107C  +  * 

155740+2 

6 59856-3-996. "’3+4  995479+7 

;  00. 

3  CC  3 . 1 

3.C2'  7 

738699+5 

311  j  7  0 ♦ 5 

2-3204+2 

630229-5-346965  +  7  93547'’+? 

3000. 

5009.1 

0 .  C  2 ' .  2 

3096 

JANAF  12/60 

r  ? 

109070+6 

366220+5 

146441+2 

622-36-4-163227  +  7  7”410  +  ’ 

5  00. 

3000.1 

3.  C? 

lJ 9 670+6 

3  6  -o  2  2  4  *3 

1  44782  +  2 

792232-4-646877+6  793410+2 

3000. 

5000.1 

3. Cl 

1001  01 

j  7 

JANAF  12/60 

mo 

792^00+5 

217660+5 

82’ 133+1 

2815r5-3-l’6696+7  609290+2 

500. 

30CC .  1 

O.Hi’l 

792O00+5 

2  1  7660  +  5 

7  6  5  4  r-  7  ♦  1 

3593*3-3  lg077’+7  60c290+? 

3009  . 

500C.  1 

C.  iV 

l  1  1 

11  0  0 

0  0  0 

0  •  JANAF  03/63 

A  CWL  -  'a 

r  r  j 

.*  97099  +  5 

242550+5 

874435+1 

298025-3-2601 14+6  648020+2 

500 

300  :i 

HN  > 

297309+5 

2/.2590  +  5 

’  •'.44  72+  1 

2  ’5 3  1  2- 3  2 3 A 5 3 8 ♦ 7  6 48020+2 

30  CO 

5C'’l 

H'i 
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Tha  first  and  last  points  of  tha  boundary  layar  edge  and 
•hock  theraodynaaic  stata  output  ara  presented .  The  boundary  layar 
solutions  for  tha  stagnation  point  and  for  one  station  on  tha 
afterbody  ara  also  included. 
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